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News and Reviews 

by Mike Dunn, Co-Editor 

I am writing this article early, since I am going on vacation, so I 
don’t know all of what’s in this issue. There should be the great educa¬ 
tion program by Paul Freeman, The Living Cell and other fine articles 
and programs. 

We have a number of new disks now ready. Ace Telecommunica¬ 
tions Disk #1 has KERMIT in run time versions for the 850 interface 
and modem of your choice. It also has KERMIT for the MicroBits 
Modem, and an intelligent modem program for the Atari 1030 modem. 
If you want KERMIT for the 1030 modem, let us know, and will be give 
you that version instead of the ones above. There was not enough 
room for the ACTION! source code; but if you really want it, specify 
and we will put in on the back of the disk. This disk would not have 
been possible without the aide of MicroBits, also known as MPP (225 
Third Ave S.W., Albany, OR 97321) who put their fine programmers on 
the project to make a de-bugged run-time version of this program from 
the original one from Columbia University, written in ACTION! by 
John Pelevich, author of Chameleon. I understand his new version 4.2 
is really great and available from ANTIC! for $20. Microbits have been 
a fantastic supporter of ACE, not only helping us with programs, but 
suppling us with their Modems, interfaces, and other equipment to 
use, test, and keep. 

There are also two new Best of... disks, both with a new DOS, 
MachDOS, given to ACE by B.A.S.I.C., the very nice disk-based 
newsletter from Brooklyn, NY. Best of ACE #12 features a wonderful 
program from a German atari club called SKI that is much too long to 
put in the newsletter. Also features SNAKES and The Living CELL 
from this newsletter. Best of ACE #13 has a public domain translater 
for the XL series that is much nicer than the “Official” Atari version, 
Solitare in BASIC and in run-time C versions as well as some other 
run-time C programs by Ralph Walden, BlackHole, and programs from 
this issue. 

The ACE Business and DataBase disk will be ready when we 
receive the list program by Stan Ockers, hopefully this issue. 

Remember, any of the above are only $10 each, or $15 for 2 on a 
double sided disk. Write to Ron Ness for the above or any other disk 
you would want. 

Another supporter of ACE from the beginning has sent us their just 
released Atari version of the best selling program, The Print Shop 
(Broderbund, $45). This program will be reviewed by Larry Gold 
elsewhere, but it is really something you should consider buying if 
you have a graphic compatible printer — very easy to use, very im¬ 
pressive. 

We hope to have access soon to a prototype version of the Atari ST 
— if so, a complete report next issue. 


ATARI WRITER DRIVERS 

Do you want to use one of the following printers with AtariWriter? If 
so, send $10.00 to: 

Gary Furr 
Box 1073 


Mountain View, CA 94042 
Letter Quality: 

Atari 1020,1027 
Compactronic 58 
BMC PB 401 
DTC Style Writer 
Brother HR-15/25 


Star Powertype 
Diablo 620 
Silver Reed 500-770 
Juki 6100 
Smith Corona TP-1 


Dot-matrix: 

Epson MX, RX, & FX 80/100 

Star Gemini 10/1 OX 

Star Radix 10/15 

Star SG,SR,SD -10/15 

Axon AT-100, SLP, GP550A 

Mannesman Tally 160/180L, Spirit 80 

Okidata 80,82/83,84,92/93 

IDS 480 Microprism 

C.ltoh Prowriter 8510 

Olympia NP,RO,Comact2 

Legend 880 

CP-80 Type 1 

Riteman 


BMC BX-80 
Olivetti PR2300 (ink) 
Citizen MSP 10 
Smith Corona D-100 


VP RAMBLINGS 

It is my understanding that by the time you read this the 130XE 
computers should be in the stores. At what price your guess is as 
good as mine. I know alot of you will say so what, there is no software 
to take advantage of the extra memory. Wrong! There is some: most 
word processors should work, SynCalc, and most of the calc type pro¬ 
grams, and the data base programs should also work well with this 
new machine. The market should see many types of programs to will 
take advantage of the added memory even if it is bank selected. 
Within a short time many of the programs around today can be 
enhanced to use more memory. 

We have a new Bugbuster. He is DALE LUTZ, of Edmonton, Canada, 
and his phone no. is 403-688-2374. His specialty is general programm¬ 
ing but with special emphasis on Action! All Atari users who have pro¬ 
blems and are in his area you now have someone to call who can help 
you. 

Anyone who has expertise is some area of computing and wants to 
become a Bugbuster please let me know and we will put you on our 
list. 

Don’t forget the contest for the best graphics which we will use for 
the newsletter and BBS. 

— Larry Gold 

THE PRINT SHOP 

Print Shop ($45, Broderbund) was first written for other computers, 
and then finally for the Atari. When I first saw it for the Apple I was 
very impressed and could’t wait for it to come out for the Atari. Well, 
Broderbund should be very proud of themselves as they took a very, 
very good program and kept it that way. I was a little concerned that 
what was good on the Apple would be just so so on the Atari as has 
happend so many times in the past. This was not one of them. 

The Print Shop is the ultimate user friendly program. (If only all the 
so called user friendly programs could be like this.) Menu driven, one 
can use it the minute you boot it up provided your printer is on. While 
the documentation is excellent it really isn’t needed. 

I booted the program up and as I went through the menu I made two 
birthday cards and some letterheads for some stationary without any 
trouble at all and without the aid of any instructions. Not bad for so¬ 
meone who can’t use most programs without reading the instructions 
at least twice. 

With the program comes various types of paper. More can be had 
as Broderbund has brought out a packet with paper of different types, 
and I understand they are bringing out more fonts and graphics for the 
user. 

With this program one can make cards, letterheads, banners, etc. 
You can let your imagination run free as to what it can do. It utilizes 
graphics made on the Koalapad, Atari Touch Tablet and the various 
graphic programs which are available. This is truly a program 
everyone can use who has a printer. Anyone from 8 to 80 will find it a 
program which is fun to use and which makes a finished product 
which is a joy to behold. 

The first menu offers the selection of the type of job to do. The next 
menu permits selection of border types (thick, thin, double, light, 
dark). Next you can add graphics (your own or “canned” ones in the 
program). Then you select layout options, including size, type of font, 
and how many you want. You then put in your custom message, letter, 
or what-have-you. Finally to the print routine and here Print Shop sup¬ 
ports 14 types of printers, and more I suppose when they come out. 

I can only say that here is one of the best programs written for any 
computer and one of the best programs one can own. I only wish it 
was written for the Atari first so we could have had it that much 
sooner. Broderbund is to be commended and I hope they keep up the 
good work and bring us more programs to do what they are intended 
to do and with such ease. With programs such as The Print Shop, 
computing is really a joy and also fun which makes it that much better 
for everyone. 

— Larry Gold 


PITCH RECALL 

Here is a game to test your ability to distinguish pitch of tones. 
Either one or two people may play. Use SELECT to toggle between 
one or two players at the beginning of the game. The difficulty for 
each player may be set by pressing the option key. Player 1 uses a 
joystick in port 1 and player 2 one in port 2. You will be asked to 
memorize a tone and then recall it by using the joystick to match the 
tone you heard. A response coming within certain limits of the 
original tone will be rewarded by adding a note to your score. Ten 
notes wins the game. The game can be restarted by pressing START 
while the tones are alternating at the end of a turn. 


TWO 


— Stan Ockers 



BUMPAS REVIEWS 

KAMPFGRUPPE ($60, SSI, 883 Stierlin Rd. Bldg A-200, Mountain 
View, CA 94043) is the latest strategy game by Gary Grigsby. This 
2-disk game simulates tactical combat between Russia and Germany 
from 1941 to 1945. Maneuver elements are platoons and batteries. 
One or two may play, or you may select the Atari to play both sides. 

The Game disk provides 4 historical scenarios, set up and ready to 
play: Meeting Engagement East of Bryansk (7-7-42); Stalingrad 
(12-17-42); Kiev (11-3-43); and, Berlin (3-2245). The last three scenarios 
are all assaults against prepared positions. Don’t be disappointed if 
the game is not much of a challenge for solitaire play. My first two 
games were the Stalingrad scenario, and I scored a substantive vic¬ 
tory on each side. 

Mr. Grigsby has contributed a great deal of imagination and creativi¬ 
ty to produce a strategy game with even more flexibility than the tradi¬ 
tional paper board game. In the 2-player mode, this game really 
shines. 

The opening menu permits a handicap level for the current game. In 
addition to the 4 prepared scenarios there is the choice to build your 
own. This is the most powerful feature of this game. Its implementa¬ 
tion here is the most elegant and powerful I’ve seen for any computer. 
If you choose, the Atari will draw the map, select the forces for the 
two sides, and deploy them for you. You can set up an entirely original 
scenario in a matter of seconds. 

If you want to take a little longer, you may deploy your own forces. 
A little more time and you may select the forces used. First you select 
either a Tank or Infantry type force (Russian); or, Panzer, Motorized or 
Infantry (German). Then you choose which battalions, companies and 
detachments you will have from a screen menu. Then when you 
deploy, you may substitute armored vehicles from a data card (which 
comes with the game) for those vehicles assigned to the formations 
you chose. For instance, if the tank company you chose contains 
BT-7s, you can substitute T34s. You have 8 time periods from which to 
choose, and you cannot select a vehicle which was not available in 
the time period selected. 

If you really want to get your creative juices flowing, you can design 
the map upon which you will play. The Atari will draw the map, and 
will include a river if you like. It will also ask you to control the quanti¬ 
ty of woods and broken terrain on the map. When you deploy, you may 
press “U” on the keyboard. This act opens the door to selecting from 
among 59 terrain types to place in the space under the cursor. Possi¬ 
ble terrain includes: clear, road, town, woods, broken, slope, 
road/slope, river, bridge, and ford. These terrain types may be placed 
upon 7 different topographical levels (the line-of-sight rules are very 
sophisticated). The map is a 60x60 grid scrolling over approximately 
18 screens, so creating a map is a big job. Each space is meant to 
represent 200 yards square. But you may make it just as you want it! 
The player control over this game is fantastic, and makes it my 
favorite game. 

Players also choose the scenario type from among the following 
choices: Pursuit, Assault, or Meeting Engagement. And you may 
choose the size of the battle: Large, or Small. Large battles have twice 
as many units as Small ones. 

In play, the screen shows to each player only those enemy units 
visible to his units. There is a View command which will paint in 
orange all the spaces a unit can see. Another command will list each 
target a unit can see. 

Units may be set in “close combat mode”. These units will move in¬ 
to the space of a firing enemy unit within 3 spaces before continuing 
to its commanded objective. 

All commands are by keyboard, and certain commands may be 
given to all units in a formation. Trucks and halftracks provide 
transportation to guns, mortars and troops. Additionally, infantry may 
become “Tank Marines” and ride on tanks. The Atari keeps track of 
command control, and you can trace the chain of command for any 
unit by pressing “H” until the command HQ is reached. Units do not 
execute commands immediately — there is always some delay. Loss 
of command control extends the delay. 

Combat execution takes into account the aspect of the armored 
target (front armor is harder to penetrate). Other elements in the com¬ 
bat algorithms include: weapon accuracy, number of times fired at 
target, defensive terrain, target movement, target silhouette, weapon 
penetration, number of weapons shooting at same target, and the sup¬ 
pression level of the target. Ammunition is expended each turn, and I 
always seem to run out of it before the scenario is over. But armored 
vechicles may still overrun targets without ammunition. It’s not as ef¬ 
fective as with ammunition, but hey! If it’s all you’ve got, you use it. 

The Atari scores the game. You might achieve a draw, or a marginal, 
substantive, or decisive victory. 

The 24 pages of documentation include maps and descriptions of 
the 4 scenarios. There are 5 pages of boxes containing capsule 
weapon descriptions and silhouettes, and a page of strategy notes. 
There is also a BASIC program listing with which you may test out 
direct fire probabilities against armored targets. Finally, there is a 
5-page combat short story. 


This game will probably have more play value in it than any previous 
strategy game. You probably will not live long enough to play all the 
possible combinations of scenarios possible with this game. Kamp- 
fgruppe is getting very close to a strategy game generator for those 
with the creativity to develop new games but who lack the programm¬ 
ing skill to translate their ideas to bits and bytes. I hated to put aside 
Gary Grigsby’s War in Russia game, but this one has to be played. 

MOSAIC + SYN-APPS 

A user, Charlie Cottle, reports to me he has a 165k data buffer 
available when he uses SynCalc. He has 184k RAM available when he 
uses SynFile + . Is he running these programs on an IBM? Nope, he 
has an Atari 800 with three 64k Mosaic RAM boards. If you have an 
800, and are thinking maybe you want to have the extra memory of a 
130XE machine, you can get 3 Mosaic boards and have 64k more than 
an XE. 

TRIVIA QUEST ($40, Royal Software) is a 4-disk social game for 
those who want more than plain-vanilla trivia for 4 players, each with a 
joystick. XE and XL owners are limited to 2 players. If you also want 
(and expect!) excellent animated graphics and a little arcade-style ac¬ 
tion, then this package from our friends here in Eugene is for you. 

The hand of John Atack is obvious in the high-resolution graphics 
and animation. You know him from Quasimoto. The graphic design 
shows a trail of boxes winding through a terrain of woods, mountains, 
rivers and castles scrolling over several screens. 

Each player gets individual questions to answer. The quicker the 
answer the more food is gained. Food is important because with more 
food one can travel further toward the goal of “Trivia Quest”. This goal 
is to march your questing party of three characters (Prince, Knight, 
and Page) around the board and back to the castle again. Each box 
upon which you stop may determine the type of question one is ask¬ 
ed. Royal Software provided us only with a dealer demo disk, so I can¬ 
not comment on the quality of the questions. And while there are 
categories, the players do not control them. 

Occasionally a box will contain a dragon. If you defeat the dragon 
with arrows, you win all his gold. If the dragon defeats you, it will take 
some of your gold. Gold is also won by answering questions. The 
higher the difficulty, the more gold is in the prize. You need gold to 
outfit your expedition — the Knight and Prince require more gold to 
outfit than the Page. 

You can challenge another player to a question-off if you press the 
joystick trigger as you pass through a space containing a character, 
you may both go to a question screen where only the first one answer¬ 
ing wins the gold and food. Answers are chosen by moving the 
joystick among 4 choices for each quesion. The response is very fast. 

Royal Software is now preparing a utility disk which will permit you 
to create and edit your own-design question disks. This can be a 
valuable home educational tool — especially for those who may be 
motivated by video games. They are promising this disk in 10 days, so 
it should be ready by the time you read this. 

— Jim Bumpas 


BIT TWIDDLING 

(reprint: StarFleet, Feb. 1985) 

In the past, I have been frequently exasperated by the lack of BASIC 
commands to do bit manipulations. The normal BASIC logical opera¬ 
tions return a one or zero (true or false). Therefore, you usually test a 
variable with a logical operation, then use arithmetic operations to set 
or mask specific bits you wish to change. 

Aside from being slow, the code tends to be very cryptic. Three 
months later, you may end up rewriting the whole program rather than 
try to figure out what you did. 

The following routines are a solution to the problem. They allow 
true, direct bit manipulation of 16 bit integers by means of a single 
USR call, the AND and OR allow bit masking and the EXCLUSIVE OR 
may be used for certain types of encrypting schemes. 

The necessary initialization sections are included in the main pro¬ 
gram and called to set up a small machine language routine which is 
stored in a string variable. The machine language routine is called by 
the main program as shown in the example. Two variables (arguments) 
ARG1 and ARG2 are passed within the USR command. The USR com¬ 
mand is made equal to the result variable. The string varialbes have 
been given names which identify the purpose of the operation (e.g., 
LAND = logical AND) to make debugging easier. I hope these are as 
useful to you as they have been to me. 

— Mike Cunningham 


THREE 




BIG is a PILOT program written as a learning game for handicapped 
chiidren. It is designed to teach size value judgments and improve 
basic computer literacy. The child uses a number select menu to pick 
out a program or (if successful) a game. It only requires the numbers 
1-6 be inputted and return pressed for each response. 

WHY BOTHER WITH THE HANDICAPPED? 

Attitudes and preconceived notions have lessened the impact of 
one of the most rewarding uses of the micro computer — helping 
mentally handicapped children and adults. As an instructor of 
moderate to profoundly retarded children I have found it necessary to 
create useful programs. 

Chosen because of its easy to use personality, the Atari computer 
and the PILOT language have made it easier to write software. Many 
publishers of educational materials claim their materials work with 
our students, but this is NOT true. Watered down public school 
special education lessons are not effective for our disabled learners. 
With regular materials such as books, puzzles, and records we are at 
least able to use and reuse the useful parts. Most commercial soft¬ 
ware is either protected or too complex to allow the teacher to modify 
it for the handicapped student. 

Our handicapped learners are not as different as some people 
believe. They do need more repetition and easier levels to absorb a 
new concept or activity. Daily use of the computer for 2 years has 
shown us transfer (relating something learned in one area to another 
area) does occur. There are many myths about the retarded, but two 
major points are real. Retardation does not go away. 

It is a life-long condition. The child can learn, but only with some 
special help. The computer can continue as a learning aid not only for 
children but for adults of any age. 

Retarded individuals can and do live useful and productive lives 
with just a little assistance. In our county, a sheltered workshop 
works hand-in-hand with local industries providing gainful employ¬ 
ment through subcontract work. A group of individuals who could 
have been inmates of institutions at the taxpayers’ expense are now 
productive taxpayers themselves. 

A DIFFERENT HANDICAP 

The child with a mental handicap needs individualized programs to 
be able to use the computer appropriately. The range of intellect in a 
single classromm of students (aged 13-18, for example) is as varied as 
might be found in a one room schoolhouse serving all 12 grades. We 
also have a significant number of students with no speech or multiple 
difficulties such as cerebral palsy. 

We began using the computer with an easy to use commercial pro¬ 
gram for pre-schoolers using a joystick and only requiring the mat¬ 
ching of shapes and letters. Soon most of our children were using the 
keyboard. The Atari 400 provides a nice input device when modified by 
placing paper over the keys not wanted. Learning to use the computer 
was easy. The randomness of the required responses keep the 
students from memorizing the answers. Because of the need for 
repetition and he need for individualized attention (especially feed¬ 
back for responses), many special educators who have never used a 
computer are using techniques easily done by the computer. 

THE PROGRAM 

The PILOT program BIG will be interesting to preschoolers as a 
game. It uses several features I feel are necessary for educational 
software: 

1. Only correct responses are rewarded. No negative noise or action 
occurs upon an incorrect response. Every correct response has a tiny 
reward. 

2. The required responses are understood and possible. Success 
needs to occur before learning can happen. 

3. Learning steps are small enough to be possible and large enough 
to hold interest. For our special learners, the steps are slower and 
more repetitive but they are still there. 

4. Fun may be an essential ingredient. The enthusiasm of the in¬ 
dividual towards an activity often determines success. While all 
lessons cannot be fun, they can at least be interesting and enjoyable. 

5. This program, although simple in concept, not only provides prac¬ 
tice in size and value judgments, but also improves literacy by using a 
number select menu to allow the student (or teacher) to pick the pro¬ 
gram and also (if successful) to choose the reward. 

The first program module, Biggest, uses the turtle to draw four une¬ 
qual red vertical lines. The text window displays the numbers 1 to 4 
under the lines from left to right. The student picks out the correct 
line, touches the line on the screen and bring the finger down to the 
number underneath. The number is then pressed on the keyboard. 
Finally, after checking to see if the proper number is in the window, 
the return key is pressed. 

The second lesson module, Bigger, uses the turtle to draw two 
horizontal yellow lines of unequal length. The student is requested to 
press the correct number key. The student must then press the return 
key. 


Measure, the fifth module, has the turtle draw one horizontal line at 
random from 1 to 6 inches long. The student places a homemade 
plastic coated paper ruler with large one inch markings under the line 
of the screen. Sine the object of the program is to provide successful 
drill, the line always starts at the same place, but jumps randomly to 
one of 5 lengths to insure the child has practice positioning the ruler. 
More advanced students can also use this program to guess the size. 

A short pleasant sound occurs upon a correct response. Upon an in¬ 
correct response, the prompt “try again” appears. I do not want to 
reinforce the incorrect response, but I need some indicator the 
answer was wrong. A counter in the program records all incorrect 
responses. When the student is finished, the score is displayed. Even 
though there is a short sound reward for each correct response and a 
score printout at the end of ten responses, a special reward appears 
for 10 correct responses in a row. The successful student is presented 
with a screen menu of reward choices. The selection includes a draw¬ 
ing of a picture and drawing a variety of shapes and colors according 
to the student’s directions to the turtle. 

I will send you a copy of this program on your tape or disk for $3 
and a SASE. 

— Carl Schwartz 
5607 Scribner Road 
Pierpont, OH 44082 

LABELS UPDATE 

I find it’s easier to remove the tractor feed from the Gemini 10X and 
print labels directly on individual envelopes. To help in this I made the 
following changes to the program: 

1) add line 401: 401 POSITION 3,18:? “ HOW MANY BLANKS 
BEFORE LABEL “:INPUT MARG 

2) change line 406: 406 ? #2;BLKS$(1,MARG); 

3) change the ? #2;” in line 412 to ? #2;BLK$(1,MARG); 

Answer the number of blanks question with: 

A) 6 for labels 

B) 24 for regular envelopes 

C) about 40 for business size envelopes 

I also find the program useful for printing disk labels. If you are set¬ 
ting up the program in anticipation of printing lists, I find I should 
have filled the index with the last letter of the alphabet rather than 
with X’s (the small letter ‘z’). The changes will be in lines 5010 and 
5020: 

1) in 5010 XSS$ = ”z” 

2) in 5020 FREX$ = ’’zzzzzz” 

— Stan Ockers 


BLACKBIRD 

BLACKBIRD is a space game which includes fast action, color, 
sound, and nine different screens! In the game, you must manuever 
your spacecraft through a winding series of caverns, avoiding the 
deadly fire of surface-to-air missiles. You may fight back by dropping 
photon bombs (press the trigger). You accumulate points by hitting 
the missile launchers and finishing each screen. If you make it to the 
last screen, you are declared a winner, but chances are you won’t 
make it that far! 

The animation in BLACKBIRD is fast and smooth, even though the 
program is written completely in BASIC. To achieve the graphics in 
BLACKBIRD, I used a number of advanced techniques, such as 
Player/Missiles and a custom character set. In order to have smooth 
vertical movement of the player/missiles, strings are used. In many 
cases, it is better to uses strings (instead of machine-language 
subroutines) to move P/M graphics. The string handling functions 
which can be used in BASIC allow the user to move large areas of 
memory in a short time, and this speed can be used to great effect 
with player/missiles. 

The main screen display is in graphics mode 1 (this saves a lot of 
memory). Most of the characters of the alphabet were redefined to 
form sections of the cave. By using character graphics instead of 
mode 7 or 7.5, it is possible to draw a new screen in a very short time. 
BLACKBIRD requires at least 40K and BASIC. Grab a joystick and 
have fun! 

— Paul Freeman 


FOUR 



THE CELL 

BY PAUL FREEMAN 


2 reh asma! 


iPaul Freenanl 


4 REM EQgg&i 
48 CLR :frEG :POKE 82,8:6RAPHIC5 7;5ETC 
OLOR 4,8,8:SETC0L0R 2,8,4:5ETC0L0R 1,1 
3,10:5ETC0L0R 8,I,8:P0KE 752,1 
50 CH=80:CV=52;DIM BO(14),AA$(45),AN$( 
5) 

70 COLOR 3:PLOT 6,0:ARAMTO 152,8:COLOR 
11 PLOT 6,2:ARAMTO 152,2:ARAMT0 152,78 
:ARAMTO 6,78'.ARAMTO 6,2 
75 FOR A=8 TO 158 STEP 25PLOT A,3;PLOT 
A,77:PL0T A,4:PL0T A,76:NEXT A 
77 FOR A=4 TO 76 STEP 2:PL0T 7,A:PL0T 
151,A:PLOT 8,A:PL0T 158,A:NEXT A 
98 RESTORE ;COLOR 2;FOR A=18 TO 41:REA 
A 8:PLOT (80~B)-B*0.5,A:ARAMTO (88+B)+ 
8*8.5,A:PLOT (88-8)-8*0.5,78-A 
96 ARAMTO (80+B)+B*0.5,78-A:S0UNA 0,98 
-A*2,18,3:NEXT A:SOUND 8,8,8,8 
188 AATA 5,18,12,15,16,18,19,28,21,22, 
24,25,25,26,26,27,28,28,29,29,38,30,31 
,31,32,32,32,32,33,33,33,33 
118 RESTORE :COLOR 1:F0R A=10 TO 41:RE 
AA B'.PLOT (78-8)-B*8.5,A:PLOT (79-B)-B 
*8.5, A .’PLOT (82+81+8*8.5,0 
128 PLOT C78-B5-8*8.5,78-0:PLOT (82+83 
+8*0.5,78-A:PLOT (81+B3+B*8.5,A:PL0T ( 
79-B3-8*8.5,78-A:PLOT (81+8)+8*8.5,78- 
A:KEXT A 

138 COLOR 3:FOR A=38 TO 43:READ 8:PLOT 
88-B,A:ARAMTO 88+8,A:PLOT 88-B,86-A:A 


248 ? " Move Joystick To Make Selec 
tion. 11 :? 

268 COLOR 8;FOR A=8 TO 6:PLOT 55,A:ARA 
MTO 185,A:NEXT A 

278 COLOR 1:PL0T 59,8:ARAMT0 63,8:PL0T 
61,1:ARAMTO 61,6:PL0T 65,8:ARAMT0 65, 
6:PLOT 66,3:ARAMTO 68,3:PLOT 69,0 
288 ARAMTO 69,6:PLGT 75,8:ARAMT0 71,O: 
ARAMTO 71,6:ARAMTO 75,6:PL0T 72,3:ARAM 
TO 74,3 

290 PLOT 83,0:ARAMTO 79,8:ARAMTO 79,6: 
ARAMTO 83,6:PL0T 89,0:ARAMTO 85,0:ARAM 
TO 85,6:ARAMTO 89,6:PL0T 86,3 
388 ARAMTO 88,3:PL0T 91,8:ARAMT0 91,6: 
ARAMTO 95,6:PLOT 97,8:ARAMTO 97,6:ARAM 
TO 181,6 

318 FOR A=15 TO 8 STEP -1:5ETC0L0R 4,8 
,A:FOR M=1 TO 18:NEXT M:NEXT A 
328 COLOR 3:RESTORE 358:FOR A=8 TO 16: 
READ 8,C:PLOT B,C:FOR A=8 TO 6:READ B, 
C;IF B=-l OR C=-l THEN NEXT A:GOTO 481 
338 ARAMTO 8,C:NEXT A:NEXT A:GOTO 481 
358 AATA 48,74,48,78,42,78,42,72,41,72 
,-1,-1,44,74,44,78,46,78,46,72,44,72,4 
6,74,-1,-1,58,74,48,74,48,72,49,72 
368 AATA 48,72,48,78,58,78,-1,-1,52,74 
,54,74,54,72,52,72,52,78,54,78,-1,-1,5 
6,74,58,74,58,72,56,72,56,70,58,70 
378 AATA “1,-1,62,74,64,74,64,72,62,72 
,62,70,64,78,-1,-1,67,74,67,70,68,70,6 
6,78,-1,-1,78,74,78,78,72,78,72,74 


RAMTO 88+8,86-A:NEXT A 

148 AATA 1,3,4,4,5,5 

158 RESTORE 148:COLOR 6:FOR A=38 TO 43 

:REAA B:PLOT 79-B,A:PL0T 81+B,A:PL0T 7 

9-8,86-A:PLOT 81+8,86-A:NEXT A 

168 COLOR i:PLOT 60,38:ARAMTO 66,22:AR 

AMTO 63,21:ARAMTO 58,29:ARAMT0 68,38:P 

LOT 60,27:ARAMTO 63,28:PL0T 62,24 

165 ARAMTO 65,25 

170 PLOT 95,25:ARAMTO 99,33:ARAMTO 182 
,32'.ARAMTO 99,25:ARAMT0 95,25:PL0T 99, 
25:ARAMTO 95,26 

188 COLOR 3:PL0T 56,58;ARAMTO 58,56:DR 
AMTO 64,58:ARAMTO 78,57:PL0T 58,52:PL0 
T 56,54:PLOT 64,59:PL0T 68,56 
280 PLOT 85,53'.ARAMTO 84,55:ARAMTO 86, 
58:ARAMTO 93,62:PL0T 88,52:ARAMTO 87,5 
4:PLOT 89,56:ARAMTO 94,58 
218 PLOT 90,52:PLOT 91,52:PL0T 90,53:P 
LOT 91,53:PLOT 94,54:PL0T 95,54:PL0T 9 
4,55:PL0T 95,55 
230 1 


380 AATA 72,72,71,72,-1,-1,74,74,74,70 
,76,78,76,72,74,72,76,74,-1,-1,79,74,7 
9,78,88,78,78,78,-1,-1,84,74,84,72 
398 AATA 85,72,84,72,84,70,86,78,-1,-1 
,88,74,88,78,90,70,90,74,88,74,-1,-1,9 
2,74,92,78,94,78,94,72,92,72,94,74 

395 AATA -1,-1,180,74,180,70,98,70,98, 
74,181,74,-1,-1,183,70,183,74,185,74,1 
05,78,-1,-1,187,74,187,78,-1,-1 

396 AATA 109,78,112,70,189,74,112,74,- 

1,-1 

488 rem miaiiiragiira 

401 0ST=5T:ST=STICK(0) 

482 COLOR 2:PL0T CH,CV:PLOT CH+i,CV:PL 
OT CH,CM-1:PL0T CH+i,CV-l 

483 IF PEEK (53279)=6 THEN GOTO 7880 
485 IF 5T=14 THEN CH=88:CV=25 

418 IF 5T=6 THEN CH=105:CM=26 
415 IF 5T=7 THEN CH=128:CV=40 
428 IF ST=5 THEN CH=188:CV=52 
425 IF 5T=13 THEN CH=88:CV=52 
438 IF ST=9 THEN CH=72:CV=54 


435 IF 5T=ii THEN CH=65:CV=58 

440 IF ST=10 THEN CH=66:C0=38 

450 IF STOiS THEN SOUND 8, (CH+CV)72,1 

8,5 

455 IF 5T=15 THEN SOUND 0,0,0,0 
588 IF C0<5 THEN COLOR 8:PL0T CH,CV:PL 
OT CH+1,CV:PL0T CH,CM-1*.PL0T CH+i,CV~i 
585 IF C0>=5 THEN COLOR 2:PL0T GH,CV:P 
LOT CH+1,CV:PL0T CH,CV~i:PLOT CH+1,CM- 
1 

518 C0=C0+1:IF C0>10 THEN CO=0 
528 IF 05T=5T THEN GOTO 598 
525 IF ST=15 THEN GOTO 598 


Hove Joystick To Hake Select! 


sumv 1 

540 IF 5T=14 THEN ? “ CYTO 

PLAS^F* 

545 IF ST=6 THEN ? " CENTR 

IOLE" 

558 IF 5T=7 THEN ? " CELL M 

EMBRANE 11 

555 IF ST=5 THEN ? " GOLGI 

BODY" 

568 IF ST=13 THEN ? H N 

UCLEUS" 

565 IF ST=9 OR ST=11 THEN ? » 
ENDOPLASMIC RETICULUM" 

575 IF ST=18 THEN ? » MITOC 

HONARIA" 


588 ? 1 — I I11 ■ Kl lil 

GECHHV' 

598 IF STRIG(0)=1 THEN GOTO 400 
688 COLOR 0;FOR A=10 TO 74:PLOT 25,A:A 
RAMTO 135,A:SOUND 0,A,18,3:NEXT A 
620 IF CH=80 ANA CV=52 THEN G0SU8 4088 
638 IF CH=105 ANA CV=26 THEN G0SU8 438 
8 

648 IF CH=66 ANA CV=38 THEN GOSUB 4680 
650 IF CH=100 ANA CV=52 THEN GOSUB 480 
0 

660 IF (CH=72 ANA CV=54) OR (CH=65 ANA 
CV=50) THEN GOSUB 5088 
678 IF CH=80 ANA CV=25 THEN GOSUB 5208 
688 IF CH=128 ANA CV=40 THEN GOSUB 540 
0 

788 GOTO 98 
4800 REM CHMNaflH 

4082 RESTORE :COLOR 3:FOR A=18 TO 41:R 
EAA 8:PLOT 88-8,A:ARAMTO 88+B,A:PL0T 8 
0-8,78-A:ARAMTO 88+B,78-A 
40O3 SOUND 0,98-A*2,10,3:NEXT A;SOUND 
0,0,0,8 

4818 RESTORE : COLOR l.'FOR A=10 TO 41 ;R 
EAA 8:PLOT 78-B,A:PL0T 79-B,A:PL0T 81+ 


FIVE 


THE CELL CONT 


B,A:PLOT 82+B,A:PL0T 78-B,78-A 

4815 PLOT 79-B,78“A:PL0T 81+B,78~A:PL0 

T 82+B,78-A:NEXT A 

4820 RESTORE 140:COLOR 2:FOR A=42 TO 4 
7:REAR BlPLOT 88-B,A:DRAWTO 88*B,A:PL0 
T 88“B,94~A: OR A WTO 80*B,94-A:NEXT A 
4838 RESTORE 148;COLOR 8;FOR A=42 TO 4 
7;READ B:PLOT 79-B,A:PL0T 81*B,A:PL0T 
79-B,94-A:PL0T 81+B,94~A:NEXT A 
4848 COLOR llPLQT 79,47:DRAHTQ 8i,47:P 
LOT 79,48:DRAHT0 8i,48:PL0T 88,46:PL0T 
80,49 

4858 FOR A=1 TO 50:B=INT(60*RNDCim56 

:C-INT(60*RNDCl))+18:LOCATE B,C,D 

4860 IF D=3 THEN GOTO 4078 

4865 NEXT A:GOTO 4898 

4078 COLOR l:PLOT B,C:PLOT 8U,C:PL0T 

B,C+i:PLOT B+1,C+1:NEXT A 

4890 ? » The NUCLEUS is a membrane bo 

and”:? n structure which controls the 

4895 ? " activities of the cell. It c 
ontains ":FGR Hrl TO 188+DEM*608:NEXT 
M 

4188 IF STRIG(8)=1 AND DEM=0 THEN 60T0 
4180 

4118 ? " the chromosomes, which carry 
the**:? ** genetic inf or nation. The nu 
cleus*' 

4115 ? '* usually contains two smaller 
bodies*':FOR H=1 TO i88+DEH*600:NEXT H 
4128 IF STRI6C0)=i AND DEM=0 THEN GOTO 
4128 

4138 ? *' called nucleoli,that have ri 
bonucleic'*:? ** acid (RNA) .**:? 

4135 FOR H=1 TO 180+DEHK608:NEXT H 
4148 IF STRIG(8)=1 AND DEM=0 THEN GOTO 
4148 

4158 COLOR 8:F0R A=8 TO 72:PL0T 48,A;D 
RAHTO 128,A;SOUND 8,A,18,3:NEXT A;SOUN 
& 0 , 8 , 8,0 

4168 IF DEM=i THEN GOTO 15818 
4170 RETURN 
4380 REH 

4382 SOUND 0,0,8,8;RESTORE 4318:COLOR 
l;PLOT 28,35:FOR C=35 TO 65:READ B;DRA 
WTO B+28,C:NEXT C 

4318 DATA 8,8,0,8,8,8,8,8,8,1,1,1,2,2, 
3,3,4,4,5,5,6,7,8,9,18,11,12,13,15,17, 
28,21 

4328 RESTORE 4310:PLOT 188,15:FOR C=I5 
TO 45;READ B:PLOT BU00,C:NEXT C 
4330 RESTORE 4318:PLOT 121,45:FOR C=45 
TO 15 STEP -I:READ B:DRAHTO 121~B,C:D 


RAHTO 122~B,C:NEXT C 
4348 RESTORE 4318:FOR C=35 TO 65 STEP 
2:COLOR 1:READ B:PLOT B+21,C:DRAHT0 B+ 
99,C-28:COLOR 3:READ B:PLOT Bf2i,CU 
4345 DRAMTO B+99,C“19:SOUND 8,117-C,18 
,3:NEXT C;SOUND 8,8,8,8 
4488 ? •* Two CENTRI0LE5 are found in 
all":? " animal cells. Each centriole 
is a" 

4485 ? ** cylinder of nine sets of thr 
ee**:FOR H=i TO 100+0EHK6O0:NEXT H 
4418 IF STRIGC0)=1 AND DEH=0 THEN GOTO 
4418 

4420 ? ** microtubules parallel to the 
":? ** cylindrical axis. They control 
the" 

4425 ? ** activities of the mitotic sp 
indle":FOR H=1 TO 100+0EM*600:NEXT W 
4430 IF STRIG(0)=i AND DEH=8 THEN GOTO 
4430 

4448 ? " and serve as a base for the 
cilia'*:? ** and flagella":? :FOR H=1 T 
0 108+DEMK600:NEXT H 
4450 IF STRIGC0)=I AND DEH=0 THEN GOTO 
4450 

4468 COLOR 8:FOR A=8 TO 72:PLOT 15,A:D 
RAHTO 145,A:SOUND 0,A,18,3:NEXT A:SOUN 
D 8,8,8,0 

4470 IF DEM=1 THEN GOTO 15818 
4488 RETURN 


IhITQCHOHDRIA] 


4602 COLOR 2:RESTORE 4618:PLOT 48,68:F 
OR A-8 TO 9:READ B,C:DRAHTO B,C:NEXT A 
4618 DATA 46,70,60,68,86,58,112,32,120 
,20,112,10,182,12,74,28,56,36,48,60 
4615 SOUND 0,8,0,6 

4628 COLOR 2:RESTORE 4610;PLOT 48,61;F 
OR A=0 TO 9:READ B,C:DRAHTO B,C+i:NEXT 
A 

4638 RESTORE 4635;COLOR 3:PLOT 41,61:F 
OR A-8 TO 9:READ B,C:DRAHTO B,C:NEXT A 
4635 DATA 46,68,68,66,86,56,112,38,119 
,28,111,12,101,14,74,30,57,38,42,60 
4648 COLOR 3:RESTORE 4650:FOR A=0 TO 9 
:READ B,C,D,£:PLOT B,C:DRAMTO D,E:NEXT 

4658 DATA 182,15,118,22,92,21,188,28,8 

6,25,186,38,82,27,98,48,76,35,88,46,66 

,35,98,52,64,43,86,58 

4655 DATA 58,43,66,54,58,49,68,68,46,5 

5,60,68 

4668 COLOR 1:RESTORE 4678:FOR A=0 TO 7 
.’READ B,C:PLOT B,C:PLOT B,C+l:PLOT B+i 
,C:PLOT B+i,C+l:NEXT A 


4678 DATA 182,18,184,32,88,30,92,46,70 

,48,74,54,58,48,52,66 

4686 FOR A=68 TO 20 STEP ~1:S0UND 0,A, 

18,3:NEXT A;SOUND 6,8,8,8 

4690 ? " MITOCHONRIA are present in t 

he":? " cytoplasms of all aerobic cel 

Is." 

4788 ? '* They consist of an outer mem 
brane and":FOR H=i TO 180+DEMK600:NEXT 
H 

4785 IF STRIGCO)=1 AND DEH=0 THEN GOTO 
4785 

4718 ? " an inner membrane with many 
bends":? " for a higher surface area. 
The" 

4728 ? " high energy molecule adenosi 
ne":FOR H=1 TO 108+DEMK608:NEXT M 
4725 IF STRIG(81=1 AND DEH=0 THEN GOTO 
4725 

4738 ? " triphosphate (ATP) is formed 
in":? '* structures attached to the i 
nner" 

4740 ? " membrane of the mitochonria. 
"‘.FOR H=1 TO 100fDEfPf680:NEXT H 
4745 IF STRIG(8)=1 AND DEH=8 THEN GOTO 
4745 

4758 COLOR 0:FOR A-8 TO 72:PLOT 48,A:D 
RAHTO 126,A:SOUND 0,A,18,3:NEXT A:SOUN 
D 8,8,8,8 

4768 IF DEH=1 THEN GOTO 15818 
4770 RETURN 


IGOLGI BODY! 


4882 COLOR 3:RESTORE 4818:FOR A=0 TO 6 
:R£AD B,C,D,E,F,G:PLOT B,C:DRAHTO D,E: 
DRAMTO F,G:NEXT A 

4818 DATA 32,38,60,22,80,18,36,58,54,3 
4,78,24,48,46,72,30,86,30,54,48,78,36, 
92,44,92,36,108,46,104,60,74,22 
4815 DATA 92,26,186,46,84,18,184,28,12 
0,58 

4818 SOUND 8,8,0,8 

4828 COLOR 3:RESTORE 4810:FOR A=8 TO 6 
:READ B,C,0,E,F,G:PLOT B,C+1:DRAMTO D, 
E+l:DRAMTO F,G*i:NEXT A 
4838 COLOR 2:RESTORE 4848:FOR A=8 TO 3 
:READ B,C:PLOT B,C:DRAMTO B+2,C:PL0T B 
~1,C+l:DRAMTO B+3,C+1:PL0T B,C*2 
4835 DRAMTO B+2,C+2:PL0T B*i,C-l:PLOT 
B+I,C+3:NEXT A 

4840 DATA 56,56,88,48,92,62,76,58 
4988 ? " GOLGI BODIES are cytoplasmic 
'*:? '* organelles which consist of a s 
tack" 

4918 ? ** of flattened tubules surroun 


SIX 
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M by":FOR 14=1 TO 180+D£Mt680;NEXT H 
4915 If STRIGC0)=1 AND DEN=0 THEN GOTO 
4915 

4928 ? " spherical objects. The golgi 
bodies";? " have the primary role of 
conplexing" 

4938 ? ” proteins formed in the endop 
lasmic":FOR N=1 TO 188*DEM*608:NEXT H 
4935 IF STRIGC0>=1 AND DEK=8 THEN GOTO 
4935 

4948 ? " reticulUM With Other nolecul 

es.";? ;? 

4950 FOR H=1 TO 100+DEMK60O;NEXT H 
4955 IF STRIGC8)=l AND DEM=8 THEN GOTO 
4955 

4968 COLOR 0:FOR A=8 TO 72:PL0T 30,A:D 
RAHTO 120,A:SOUND 8,A,10,3:N£XT A:SOUN 
D 0,0,0,0 

4978 IF D£N=1 THEN GOTO 15810 
4988 RETURN 

5088 ren mm 

5882 SOUND 0,8,0,0:C0LOR 3:RESTORE 581 
01PLOT 18,24:FOR A=8 TO 7:READ B,C:DRA 
HTO B,C:N£XT A 

5818 DATA 58,46,92,62,126,60,126,64,92 

,67,50,52,20,28,18,24 

5828 RESTORE 5010'.PLOT 38,18;FOR A=8 T 

0 7:R£AD B,C:DRAWTO B/l.3+16,C/1.3-8:N 

EXT A 

5030 RESTORE 5048:COLOR 1;F0R A=8 TO 1 

5:READ B,C:PL0T B,C:PLOT B+I,C:PLOT B, 

C+i:PLOT B+1,C+1:NEXT A 

5840 DATA 24,32,30,38,36,42,44,48,48,5 

2,50,44,64,58,62,58,76,62,76,54,96,68, 

88,58,112,66,100,60,122,66,120,58 

5050 RESTORE 5840:COLOR 1:F0R A=0 TO 1 

5:READ B,C:B=B/1.3+16:C=C/1.3-8:PLOT B 

,C:PLOT B+1,C:PLQT B,C*1 

5655 PLOT B+l,C+i:NEXT A 

5868 FOR A=88 TO 10 STEP -1:SOUND 0,A, 

10,3:NEXT A:SOUND 8,0,8,8 

5078 ? " ENDOPLASMIC RETICULUM are Ne 

mbranes":? " which can be covered wit 

h" 

5880 ? " ribosomes. Proteins that are 
11 : FOR 14=1 TO 108+DEMK680: NEXT N 
5885 IF STRIG(0)=1 AND DEH=0 THEN GOTO 
5885 

5090 ? " synthesized by the ribosomes 
pass":? " into the ER and are stored 
for" 

5108 ? " later use. SMOOTH ENDOPLASMI 
C":FOR M=1 TO 188+DEH*688:NEXT M 
5185 IF STRIGC8)=l AND DEM=0 THEN GOTO 


5105 

5118 ? " RETICULUM is a form of ER wi 
thout":? " the ribosomes, and it serv 
es to" 

5120 ? " sort other molecules.":FOR H 
=1 TO 100+DEMK600:NEXT H 
5125 IF STRIGC0)=1 AND DEM=8 THEN GOTO 
5125 

5130 COLOR 0:FOR C=18 TO 70;PLOT 16,C: 
SOUND 0,C,10,3:DRAMTO 126,C:NEXT C:SOU 
ND 8,0,0,0 

5148 IF DEM=1 THEN GOTO 15018 
5158 RETURN 
5280 REM BUfl 

5282 SOUND 0,0,0,0:COL0R 3:FOR A=0 TO 
38:B=INTC148WRND Cl))+18:C=INT C65*RND Cl 
))*18:PLOT B,C:NEXT A 
5218 COLOR 1:F0R A=0 TO 28:B=INTC140*R 
ND Cl))*18:C=INTC65*RND Cl))*18:PLOT B,C 
:PLOT B+1,C:PL0T B,C*1:PL0T B*1,C*1 
5215 NEXT A 

5220 COLOR 2:FOR A=0 TO 18;B=INTC140*R 
ND Cl))+10:C=INT C65*RND Cl))+18:PLOT 8-1 
,C-1:DRAHT0 B+1,C-1:PL0T B-2,C 
5225 DRAMTO B+2,C:PL0T B-1,C+1:DRAMT0 
B*1,C+1:PL0T B,C-2:PL0T B,C+2:NEXT A 
5238 FOR A=88 TO 18 STEP -1:SOUND 0,A, 
10,3:NEXT A:SOUND 0,8,0,8 
5240 ? " The CYTOPLASM is the general 
area":? " inside the cell which perf 
orms" 

5258 ? “ most of the active functions 
. There":FOR M=1 TO 10O+0EMK600:NEXT M 
5255 IF STRIGC0)=1 AND DEN=8 THEN GOTO 
5255 

5268 ? " are many different structure 
s";? " present in the cytoplasms of" 
5278 ? " different cells. Common stru 
ctures":FOR H=1 TO 188+DEMK600:NEXT M 
5275 IF STRIGC0)=1 AND DEM=8 THEN GOTO 
5275 

5288 ? ” in the cytoplasm include the 
":? " vacuole Ca sac holding food or" 
5298 ? " water), pigment and fat gran 
Ules.":F0R H=1 TO 108+DEMt600:NEXT H 
5295 IF STRIGC0)=1 AND DEM=0 THEN GOTO 
5295 

5388 COLOR 0:FOR C=8 TO 75:PLOT 18,C:5 
OUND 8,C,10,3:DRAMTO 148,C;NEXT C;SOUN 
D 0,0,8,0 

5318 IF DEM=1 THEN GOTO 15818 
5328 RETURN 
5400 REM 

5402 SOUND 0,0,0,8:COLOR 2:FOR B=0 TO 


98:C=60*COSCB/i.4):PLOT B+18,CC-15)*1, 
4-4:DRAMTO 18,CC-15)*1.4-4 
5484 SOUND 8,CC-i5)*i.4,10,3:NEXT B:50 
UND 8,8,8,0 

5410 COLOR 1:F0R B=8 TO 98:C=60*CQSCB/ 
1.4):PLOT B+19,CC-15)*1.4-3:PLOT B+19, 
CC-15)*!.4-4:NEXT B 

5428 FOR B=8 TO 90:C=60*COSCB/1.4):PLO 
T B+28,CC-15)*1.4+1:PLOT B+28,CC-15)*1 
.4+2:NEXT B 

5430 COLOR 3:FOR B=8 TO 90 STEP INT14# 
RNDCl))+6:C=68*C05CB/i.4):PLOT B+28,CC 
-15)*i.4+3:PLOT B+28,CC-15)*1.4+4 
5448 PLOT B+21,CC-15)*i.4+3:PLOT B+21, 
CC-15)*i.4+4:NEXT B 

5458 ? » The CELL MEMBRANE is an oute 
r":? " covering around the entire cel 
1 that” 

5455 ? " is composed of polysaccharid 
es. Its":FOR M=i TO 180+DEMK600:NEXT H 
5468 IF STRIGC8)=l AND DEM=0 THEN GOTO 
5468 

5478 ? " primary function is to regul 
ate the”:? " flow of materials into a 
nd out of the” 

5475 ? " cell. Most particles enter t 
he cell”:FOR M=i TO 100+0EMK600:N£XT H 
5488 IF STRIGC0)=1 AND DEN=8 THEN GOTO 
5488 

5498 ? " through the membrane pores, 
while":? " larger particles can be in 
gested by a" 

5495 ? " process called phagocytosis. 
11 : FOR M=i TO 100+DEMK608: NEXT H 
5508 IF STRIGC8)=1 AND DEM=0 THEN GOTO 
5508 

5518 COLOR 0:FOR C=8 TO 78:PL0T 18,C:D 
RAHTO 120,C:SOUND 0,C,10,3:N£XT C:SOUN 
D 0,8,8,8 

5528 IF DEM=1 THEN GOTO 15018 
5530 RETURN 
7808 REN ftlflia 

7801 FOR A=0 TO 14:BOCA)=8:NEXT A 
7882 GRAPHICS 8:SETC0L0R 2,8,8;SETC0L0 
R 4,8,8:SETC0L0R 1,8,12:P0KE 82,1:TRAP 
7288 

7010 position ie,2:? fl B2iaS^QKEnil 
POSITION 8,3:? "_ 


7828 CLOSE M3:OPEN M3,4,0,»K:" 

7821 FOR A=1 TO 5 

7822 RA=INTU2*RN0C0))+l;IF B0CRA)=1 T 
HEN NEXT A: CLOSE M3'.GOTO 7118 

7040 ? » NUMBER ";A 


SEVEN 


PITCH 


R. SCHWARZ A S. OCKERS 


16 REM ^ kkkkmkkkmmkkkkkkmkmkkmkkmkkmk 
20 REM * RECALL-A-PITCH X 

36 REM * R. 5CHMARZ AND 5. OCKERS * 
<0 REM X ATARI COMPUTER ENTHUSIASTS * 
56 REM * 3662 VINE MAPLE DR. X 

66 REM * EUGENE,OR 97405 * 

76 REM * APRIL *05 $14/YR * 

06 REM 
90 REM 

100 G0SU6 1260 

110 REM NX* DRAM SCREEN XXX 

126 ? #6;CHR$(125):POSITION 4,1s? #6;" 

Pi03h 33cA1 B":position 0,6:? #6;"score 

HIi":POSITION 17,6s? #6;CHR$(4); 

136 IF PLYRS=2 THEN POSITION 0,9s? #6; 
'^SnUSB''; SPOSITION 17,9s? 86;CHR$(13 
2)SPOKE 752,1 

146 POSITION 0,11s? H6;»$$$$$$$$$$$$$$ 
$$$$$$$$$$$$$$$$$$$$$$$$$$«.. C MT1=8 s CN 
T2-8 

156 POSITION 8,4s? #6;»DIF 8i=";El-48; 
160 IF PLYR5=2 THEN POSITION 12,4s? IS6 
; , *GfflE® , ;E2-48j 

170 GOSUB 1146SPOKE 656,lsP0KE 657,4s? 
"SSDffiEhRIFFICULTY amSi-ttPLAYERS"; 
180 POKE 656,2SPOKE 657,7s? "PRESS 
SB TO BEGIN"; 

190 REM XXX CHANGE SET-UP? XX# 

208 POKE CONSOL,8 

'18 IF PEEK(CONSOL)=3 THEN GOSUB 1160s 
GOTO 178 

228 IF PEEK(CONSOL)=5 THEN 1098 
236 IF PEEK (CONSOL) 06 THEN 210 
246 GOTO 278 

256 IF R5TRT=i THEN RSTRT=8:G0T0 120 
260 REM XXX PLAYER MI'S TURN XXX 
270 GOSUB 1140 SPOKE 656,Is POKE 657,13 s 
? ‘ CTSHMill IS UP":PUP=1:E=E1:GOSUB 4 

10 

288 GOSUB 708 s IF 5C0R£=i THEN GOSUB 74 
0 

298 IF HIM=I THEN GOTO 960 

308 GOSUB 820SPOKE 77,0SIF R5TRT=1 THE 

N RSTRT=O:GOT0 120 

310 IF STRIG(0)=8 OR STRIG(1)=8 THEN 3 
10 

320 IF PLYR5=1 THEN 250 

330 REM XXX PLAYER #2*5 TURN XXX 

346 GOSUB 1146SPOKE 656,lsP0KE 657,13s 

? 'ISQtOQES IS UP":PUP=2:E=E2:GOSUB 4 

10 

350 GOSUB 708sIF SCORE=I THEN GOSUB 78 
0 

368 IF «N=i THEN GOTO 968 


378 GOSUB 828 s IF RSTRT=i THEN R5TRT=8: 
GOTO 128 

388 IF STRIG(6)=8 OR STRIG (11=8 THEN 3 
88 

398 GOTO 250 

408 REM xxx SELECT PITCH SUBROUTINE XX 

X 

418 POKE 53248,Os POKE 53249,8 SPOKE 532 
58,8;POSITION 1,14s? 86;" 

428 FOR T=1 TO 300SNEXT TSPOKE 656,2SP 
OKE 657,11s? "MEMORIZE THIS TONE!"; 

430 F=3O+200XRMD(L) 

448 TT=208-14X(E-48)sFOR T=1 TO TT 
458 IF T<TT/18 THEN SOUND 1,F,10,18OXT 

m 

468 IF T>9XTT/10 THEN SOUND 1,F,10,1O8 

X(TT-T)/TT 

478 NEXT T 

488 SOUND 1,8,8,0 

498 GOSUB 1140 SPOKE 656,Is POKE 657,12: 
? "HAIT ." 

500 J=i:FOR T=1 TO 500SNEXT T 

518 FOR T=1 TO RND(T)X58+20+(E-49)X4:N 

EXT T 

528 H=30+RND(H)X200SSOUND 1,H,10,10 
538 J=J+i:IF J<(E-49)X5 THEN GOTO 518 
548 SOUND 1,8,8,0 

550 GOSUB 1140SPOKE 656,1:P0KE 657,15: 
? "MATCH THE NOTE";SPOKE 656,2:P0KE 65 
7,11s? "THEN PRESS THE 
568 FOR T=1 TO 150:NEXT T 
578 G=38+280XRND(L) 

588 SOUND 1,G,10,10:P0K£ 53248,(230-G) 
*0.8+48 

598 IF PUP=2 THEN 630 
600 IF STICK(0)=7 THEN G=G-i 
618 IF STICK(0)=11 THEN 6=6+1 
628 GOTO 650 

638 IF STICK(1)=7 THEN G=G-1 

648 IF STICK(1)=11 THEN 6=6+1 

650 IF G<30 THEN G=38 

660 IF G>230 THEN G=238 

678 IF (STRIG(0)=8 AND PUP=1) OR (STRI 

G(1)=0 AND PUP=2) THEN SOUND 1,0,0,8:R 

ETURN 

688 GOTO 588 

690 REM XXX CHECK IF CLOSE ENOUGH XXX 
708 SCORE=0SPOKE 53249,(230-F)X0,8+4O: 
POKE 53258,(238-F)X0.8+43:IF ABS(F-G)< 
6 THEN SC0RE=1 

718 P$=STR$(ABS(F-G)X108/F)sPOSITION 1 
,14s? 86;"you are ";P$(l,3); M X off"; 
720 RETURN 


738 REM XXX UPDATE PLAYER #1 SCORE XXX 
748 MIN=0:FOR M=i TO 9:POSITION CNT1,6 
:? 86;" ";:FOR L=1 TO 20sNEXT LsPOSITI 
ON CNTl,6s? 86;CHR$(6);:GOSUB 950 
758 FOR L=1 TO 28:NEXT LsNEXT M:CNT1=C 
NTl+lsIF CNT1>17 THEN HIN=1 
760 RETURN 

778 REM XXX UPDATE PLAYER M2 SCORE XXX 
788 MIN=0:FOR H=i TO 9:P0SITI0N CNT2,9 
s? 86;” ";sFOR L=1 TO 20sNEXT LsPOSITI 
ON CNT2,9s? 86;CHR$(134);:GOSUB 958 
798 FOR L=i TO 28sNEXT LsNEXT M:CNT2=C 
NT2+1SIF CNT2>17 THEN MIN=1 
808 RETURN 

818 REM XXX ALTERNATE SELECTED AND RAN 
DOM TONES XXX 

828 GOSUB 1140SPOKE 656,1 SPOKE 657,4S? 

"THIS HAS . .»:PnKF 

656,2SPOKE 657,8s? "030313 FOR NEXT"; 
838 SOUND 1,G,10,10:T=1 
848 T=T+lsIF T)108 THEN 888 
858 IF PEEK(CONSOL)=6 THEN R5TRT=1:S0U 
ND 1,8,0,0:RETURN 

868 IF STRIG(O)=0 OR STRIG(1)=8 THEN S 
OUND 1,0,0,8:RETURN 
876 GOTO 848 

888 GOSUB 1140SPOKE 656,1:P0KE 657,4s? 

"this has . ."spoke 656 

,2:POKE 657,8s? "SOBgffi FOR NEXT"; 

890 REM XXX DING SOUND XXX 

980 SOUND i,F,18,10:T=l 

918 T=T+1:IF T>100 THEN 820 

928 IF PEEK(CONSOL)=6 THEN RSTRT=1:S0U 

ND 1,0,8,0:RETURN 

930 IF STRIG(0)=O OR STRIG(1)=0 THEN 5 
OUND 1,0,0,0:R£TURN 
948 GOTO 910 

958 FOR J=15 TO 8 STEP -IsSOUND 1,50,1 
O,JsNEXT J:SOUND 1,O,8,0:RETURN 

959 REM XXX HIM ROUTINE XXX 

960 POKE 53248,8SPOKE 53249,8SPOKE 532 
56,0 

978 ? #6;CHR$(125):GOSUB 1140SPOKE 656 
,1 SPOKE 657,18:? "PLAYER *t»;PUP;" HIN5 
!!!":FOR M=1 TO 16 

988 POSITION 1+M,6 s ? H6;CG$(M,M);:GOSU 
B 958SR=INT(RND(0)X4):GOSUB 1820 
998 NEXT MsPOKE 656,2:P0KE 657,7s? "PR 
ESS HEEIi FOR NEH GAME"; 

1000 IF PEEK (CONSOL) 06 THEN 1800 
1010 GOTO 128 

1820 GOSUB I860:POSITION RX,RYs? #6;CH 
R$(38);sRETURN 

1038 GOSUB I860:POSITION RX,RYs? ft6;CH 


EIGHT 




ft$(166);:GOSUB 958:RETURN 

1049 605UB I860:POSITION RX,RY:? #6;CH 

R$(6);:GOSUB 950:RETURN 

1058 605UB I860:POSITION RX,RY:? 116;CM 

R$(134);:GOSUB 950:RETURN 

1060 RX=INT(RND(8)*19)+1:RY=INT CRND (8) 


*113+1:IF RY=6 THEN I860 
1878 RETURN 

i860 REN **# TOGGLE II OF PLAYERS *** 
1898 IF PLYRS=2 THEN PLYR5=1;G0T0 1118 
1188 PLYRS=2 

1118 IF PEEK (CONSOL) 07 THEN 1118 
1128 GOTO 120 

1138 REM *** BLANK MESSAGE AREA *** 


1148 POKE 656,1:POKE 657,1:? BLK$;:POK 
E 656,2:POKE 657,1:? BLK$;:RETURN 
1158 REM *#* CHANGE DIFFICULTIES **# 
1160 OPEN 111,4,0/'K:":POKE 764,255 
1178 GOSUB 1140:POKE 656,1:POKE 657,2: 
? "DIFFICULTY FOR f3I?L , l4f»:|l (1-9) ?»; 
1188 GET #1,E1:IF El<49 OR Ei>57 THEN 
1178 


1198 POSITION 7,4:? B6;Ei-48 
1288 IF PLYRS=1 THEN 1248 
1218 GOSUB 1148:POKE 656,1:POKE 657,2: 
? "DIFFICULTY FOR (1-9)?»; 

1228 GET tll,E2:IF E2<49 OR E2>57 THEN 
1218 


1238 POSITION 19,4:? #6;E2-48 
1240 CLOSE Ml;RETURN 
1258 REM *## SET UP PLAYER MISSILES ** 
* 


1268 GRAPHICS 7:GRAPHICS 1:P0KE 559,8: 
DL=PEEK(560)+256*PEEK(561):POKE DL+ii, 
7:POKE DL+14,7 

1278 POKE DL+16,7:P0KE DL+17,7:F0R J=D 
L+25 TO DL+33:P0KE (J-4),PEEK(J):NEXT 
J 

1288 A-PEEK(106)-8:PMBASE=A*256:POKE 5 
4279,A:POKE 559,46:POKE 53277,3:POKE 7 
56, A 

1298 FOR J=i TO 18:POKE PMBASE+582+J,l 
:POKE PMBASE+718*J,3:POKE PMBASE+838+J 
,255:NEXT J 

1308 REM *«* COLORS *** 

1318 RESTORE 1328:FOR J=8 TO 8:READ A: 
POKE 704+J,A:MEXT J:POKE 623,1 
1328 DATA 0,70,46,8,42,282,32,56,52 
1338 REH *** MOVE 512 BYTES OF CHAR. 5 
ET *** 

1348 REN *** TO OPEN PM AREA *** 

1358 DIM HCS$(37):RESTORE 1360:FOR J=1 
TO 37:READ A:HCS$(J,J)-CHR$(A):NEXT J 
:A-USR(ADR(MCS$)) 


1368 DATA 104,169,0,133,283,133,205,16 
9,224,133,204,165,186,56,233,8,133,286 
,162,2,168,8 

1378 DATA 177,283,145,285,200,208,249, 
230,204,230,206,282,288,242,96 
1388 FOR J=PWA5E+32 TO PHBA5E+39:P0KE 
J,255:NEXT J 

1398 RESTORE 1488:FOR J=PMBASE+48 TO P 
MBASE+55:READ A:POKE J,A:NEXT J 
1488 DATA 15,12,12,124,252,252,128,0 
1418 DIM BLK$(38):BLK$(1):» *':BLK$(38) 
-BLK$:BLK$(2)=BLK$:DIM CG$(16):CG$=»Co 
aMJtlffltlEGls!" 

1420 DIM D$ (1),P$ (4):PLYR5=2:CONSOL-53 
279:El=49:E2-49:RSTRT=8 
1430 POKE 559,46:RETURN 

HAPPV 

SLOWDOWN 

FROM LAST MONTH 

18 REM -Shane Rolin Presents: 

28 REM Happy Drives BASIC slowdown 
38 REM proyraw. 

48 REM - 

50 REM progran by SHANE ROLIN 
68 REH of Pittsburgh A. C. E. 

70 REM 

90 CLR :TRAP 730 

108 DIM DAT$(70),DSKINV$(3),5I0V$(3) 
110 REM 

128 REM Let's define Page Three 

138 REH 

148 DUNIT=769 

158 DCOHND=770 

168 DSTAT5=771 

178 DBUFL0=772 

188 DBUFHI=773 

190 DAUX1=778 


288 DAUX2=779 
218 REH 

228 REM Let's define ML subroutines 
230 REM 

248 DSKINV$(1)-CHR$(32) 

258 DSKINV$(2)=CHR$(83) 

268 DSKINV$(3)=CHR$(228) 

278 REM 

288 5I0V$(l)rCHR$(32) 

298 5I0V$(2)=CHR$(89) 

388 SI0V$(3)=CHR$(228) 

310 REM 

328 REM Let's define slow down strii 
338 REM 

348 FOR L00P=1 TO 51 

358 READ BYTE 

368 DAT$(LOOP)-CHR$(BYTE) 

378 NEXT LOOP 
388 REM 

398 DATA 38,17,52,28,21,87,55,133 
488 DATA 134,76,55,31,76,33,8,76 
418 DATA 38,25,76,54,29,76,195,29 
428 DATA 76,195,29,76,195,29,76,58 
438 DATA 31,169,1,141,235,1,169,29 
448 DATA 141,14,8,169,195,141,13,8 
458 DATA 76,65,24 
460 REM 

478 REM Let'S find addr. Of 5I0V$ 
480 REM 

498 SIOVADDR=ADR(SIOV$) 

508 REM 

510 REM Let's find addr. of D5KINV$ 
528 REH 

538 DSKADDR=ADR(DSKINV$) 

548 REH 

558 REM Let's find Lo/Hi of DAT$ 

560 REM 

570 ADDR=ADR(DAT$) 

588 DATHI=INT(ADDR/256) 

590 DATL0=ADDR-(DATHI*256) 

680 REN 

618 REM Let's run the progran!! 

628 REH 

638 POKE DUNIT,2 
648 POKE DC0MND,87 
658 POKE DAUX1,0 
668 POKE DBUFLO,DATLO 
678 POKE DBUFHI,DATHI 
686 POKE DAUX2,8 
698 X=USR(DSKADDR) 

780 POKE DC0MND,81 
718 POKE DSTATS,0 
728 X=USR(SIOVADDR) 

738 END 


NINE 



THE CELL CON 1 ! 


7958 RESTORE 11978+RA*30:READ DA$:? DA 
$:? :R£AD AN$:R£AD DA$:? DA$:READ DA$: 
? DA$ 

7968 B0(RA)=1:? :? "YOUR ANSHER ";:GET 
803,AN:? CHR$(AN) 

7868 IF CHR$(AN+32)<>AN$ THEN GOTO 788 
9 

7874 FOR 0=80 TO 18 STEP -10:SOUND 0,0 
♦IMTC18*RN0Cl)),18,19:SETCOLOR 2,8,8:F 
OR H=1 TO 18:NEXT M 
7878 SETCOLOR 2,8,15:NEXT 0:SETCOLOR 2 
,8,8:GOTO 7099 

7880 ? :? "THAT IS MRONG, THE ANSHER I 
5 ";AN$ 

7884 FOR 0=59 TO 159 STEP 19:SOUN0 8,0 
♦INTC18*RN0CD),18,5:FOR H=i TO 8:NEXT 
H:NEXT 0 

7898 SOUN0 0,0,8,0:? :? »_ 

-":? ‘.NEXT A:CL 

OSE 83 

7119 IF RI<3 THEN GOSUB 8808:GOTO 48 
7129 IF RI<=4 THEN GOSUB 9988:GOTO 48 
7138 IF RI>4 THEN GOSUB 19889:GOTO 48 
8989 GRAPHICS 7:SETC0L0R 4,8,9:SETC0L0 
R 2,8,8:SETCOLOR 8,3,8:C0L0R 1 
8819 FOR A=1 TO 88:B=INTU59*RN0Cl))+5 
:C=INTC78KRN0 Cl))45:PLOT 88,48:ORAMT0 
B,C:SOUND 0,A*2,8,8 
8828 NEXT A:S0UN0 8,8,0,8:? " THAT IS 
TERRIBLE!":? "YOU HA0E ONLY ";RI;" COR 
RECT ANSWERS!" 

8838 FOR A=8 TO 8 STEP ~1:F0R H=1 TO 5 
9:NEXT H:SETCOLOR 8,3,A:NEXT A:SETCOLO 
R 0,8,8:RETURN 

9888 ? :? "THAT HAS OKAY.":? "YOU MA0E 
"5RI;" CORRECT ANSWERS.":FOR H=1 TO 1 
898:NEXT H:RETURN 

19908 GRAPHICS 2+16:SETCOLOR 4,8,9:SET 
COLOR 8,3,8:SETCOLOR 1,8,8:POSITION 2, 
2:? 86;"CONGRA0ULATIONS!" 

19985 POSITION 2,4:? 86;"you answered" 
:POSITION 2,5:? 86;"all questions":POS 
ITION 4,6:? 86;"CORRECTLY!" 

18919 FOR A=28 TO 8 STEP -2:FOR B=28+A 
TO 5 STEP ~3:S0UN0 0,8,18,19:SETCOLOR 
4,8,INTCC85-B)/5.3) 

10829 NEXT B:NEXT A:SETCOLOR 4,8,0:FOR 
B=5 TO 48 STEP -l:SOUND 8,B,18,18:NEX 
T B:SOUND 8,8,8,8:F0R H=1 TO 389:NEXT 
H: RETURN 

11999 reh ira«»nfa*i;Maira 
12899 DATA Mhat structure controls the 
cell?,c 


12918 DATA a. vacuoles c. nuc 

leus 

12828 DATA b. DNA d. cyt 

oplasn 

12038 DATA Mhere is the ribonucleic ac 
id?,b 

12840 DATA a. cell nenbrane c. lys 
osones 

12050 DATA'b. nucleoli d. rib 

osones 

12869 DATA Hov nany centrioles are in 
all aninal cells?,b 

12870 DATA a. 50-180 C. 5 

12888 DATA b. 2 d. non 

e 

12098 DATA Mhat does the centriole con 
trol?,b 

12188 DATA a. golgi bodies c. nuc 
leus 

12118 DATA b. nitotic spindle d. nuc 
leoli 


12128 DATA Ifcere is the nitochondria?, 
a 

12138 DATA a. cytoplasn c. nuc 

leus 

12148 DATA b. cell nenbrane d. cil 
ia 

12150 DATA Hhat nolecule is forned in 
the nitochondria?,a 

12168 DATA a. DNA c. ATP 

12178 DATA b. glucose d. RNA 

12180 DATA Mhat has the role of conple 
xing proteins?,c 

12190 DATA a. ER c. gol 

gi body 

12280 DATA b. ribOSOnes d. DNA 

12210 DATA Mhere are proteins stored?, 
b 

12228 DATA a. cytoplasn c. nuc 

leus 

12238 DATA b. ER d. nit 

ochondria 

12248 DATA Mhich structure has attache 
d ribosones?,a 

12250 DATA a. ER C. DNA 

12269 DATA b. vacuole d. lys 

osones 

12278 DATA Mhere are nost of the funct 
ions of the cell perforned?,c 
12288 DATA a. ATP c. cyt 

oplasn 

12298 DATA b. nucleus d. rib 

osones 

1230O DATA Mhat is prinarily conposed 


of polysaccharides?,b 

12310 DATA a. DNA C. nuc 

leus 

12320 DATA b. cell nenbrane d. nit 
ochondria 

12338 DATA Hov are large particles ing 
ested?,d 

12348 DATA a. replication c. exo 

cytosis 

12350 DATA b. nuneration d. pha 

gocytosis 

APRIL 
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BRING YOUR FRIENDS 



TEN 



18 RE N**KKMMKMJtltKI(KMlHilfKKMKKMl t MKKKXKKK 
K 

11 REN# 

X 

12 REN* LOGICAL OPERATION ROUTINE 
* 

13 REIN* by H.J. Cunningham 1/7/85 
x 

14 REHK Starfleet ATARI User Group 
x 

15 REM* 
x 

16 RE HXKMKKMKKMKKMMMKMKKMKKICMKKXIfKMMMIt 

X 

17 REN 

18 REN The folloving are 16 bit nachin 
e language routines alloving true AND, 

OR, and EXCLUSIVE OR logical 
IS REN operations. Unlike the ATARI 
BASIC logical operations returning o 
nig a 1 or 0 value, 

20 REN these return the full 16 bit 
result of 16 bit integer logical 

operations. 

21 REN 

22 REN Set up by a GOSUB to the 
appropriate INIT section. Call as 

shovn in the exaMples. 

23 REN 

355 REN Init for logical exclusive or 

356 REN Exawiple of use: 

357 REN RESULT = USR(ADR(LE0R$),ARG1,A 
RG2J 

360 BIN LE0R$(21):F0R 1=1 TO 21:READ A 
:LEOR$(I,I}=CHR$(A};NEXT I:ST0P 
378 DATA 104,32,68,218,184,133,203,184 
,133,284,104,69,203,133,213,184,69,284 
,133,212,96 

375 REN Init for logical or 

376 REN Exavple of use 

377 REN RESULT = USR(ADR(L0R$},ARGi,AR 
G2) 

388 DIN L0R$(21):E0R 1=1 TO 21:READ A: 

LQR$(I,I)=CHR$(A):NEXT I:RETURN 

398 DATA 184,32,68,218,184,133,203,184 

,133,204,184,5,203,133,213,104,5,204,1 

33,212,96 

395 REN Init for logical and 

396 REN Example of use 

397 REN RESULT = USR(ADR(LANDS},ARGI,A 
RG2) 

488 DIN LANDS(21):FGR 1=1 TO 21:READ A 
:LANDS (I, I) =CHRS (A) :NEXT I-.RETURN 
418 DATA 104,32,68,218,184,133,203,184 
,133,284,184,37,203,133,213,184,37,284 
,133,212,96 


Ralph Walden Teaches 

Assembly Language #5 

A common way of initializing a string array is to read it via DATA 
statements. This has the advantage that one can print it in ACE and 
other newsletters, but it tends to initialize rather slowly compared to a 
STRINGS = “text”. This program will set up the string assignments for 
you. To use it, merge the program with your own program. Let’s say 
you have the following program segment: 

10 DIM STRING$(20):RESORE 100:FOR 1 = 1 TO 20:READ 
A:STRING$(I) = CHR$(A):NEXT I 
What you will do now is add the line and run the program. 


JOYSTICK 

DRIVER 

DEMO 


188 REN MKXXMKEI B tMXXMXMMMMKMKKH 
118 REN * Joystick Driver De»o 
120 REN * by Jonathan Buckheit 


11 GOSUB 32000 

The screen will clear, and you will be asked the name of the string, 
then the line number you want the string to start initializing on, and 
the increment between lines. You will then see the lines being created 
on your screen, and the READY prompt when it’s done. You can now 
delelete lines 10,11 and all of the respective DATA statements. On 
paper, this probably sounds pretty complex, but in practice it isn’t. 
You just need to decide ahead of time where you want the lines of in¬ 
itialization, then add a GOSUB 32000 after the string you want chang¬ 
ed is initialized via DATA statements, and run the program. (Note: if 
you are using BASIC XL do NOT use FAST mode!). When you are 
done using the program, you can do a GOSUB 32000, and when it asks 
for the string name, just press RETURN, and the program will remove 
itself from your main program. Notice that line 32109 will first SAVE 
the program. The reason for this is that Atari Basic, and occasionally 
even BASIC XL, will crash when deleting lines. This will give you a 
back-up should that occur. 

Some printing errors in the previous programs: 

#3 (Feb): on lines 170 and 410, the cross should have been a t 

#4 (March): on line 310, should be ©TEXT — 

Ralph Walden 


138 REN KMKKMKKKKKMKXK1H I *** ** *! 

140 REN 

158 REN - Joystick Driver - 
160 REN 

178 J0YSTICK=ADR ("hKD*i| TEE E2Bhh£I$x E0 
180 REN 

190 REN - Set up Screen - 
280 REN 

218 GRAPHICS 8:P0KE 718,0:POKE 752,1:? 
228 REN 

238 REN - Set up Delta Change Array - 
240 REN 

258 DIN DELTA(7,II:FOR JB=0 TO 7:READ 
DELTAX,DELTAY:DELTA(JB,6)=DELTAX:DELTA 
(JB,11=DELTAY:NEXT JB 
268 DATA 8,-1,1,-1,1,8,1,1,0,1,-1,1,-1 
, 8 ,- 1,-1 
278 REN 

288 REN - Put Character onto Screen - 
298 REN 

388 POSITION XP05,YPGS:? 

310 REN 

328 REN - Read Joystick - 
338 REN 

348 J8=U5R(JOYSTICK,8):IF JB=8 THEN 34 
0 

358 REN 

368 REN - Check Coordinates - 
378 REN 

388 DELTAX=XP05+DELTA(JB,8):DELTAY=YPQ 
S+DELTACJB,1J:IF DELTAK<1 OR DELTAX>38 
OR DELTAY<1 OR DELTAY>22 THEN 340 
398 REN 

408 REN - Erase Old Character - 
410 REN - Update Coordinates - 
420 REN 

438 POSITION XP0S,YP0S:? " ";:XP05=DEL 
TAX:YPOS=DELTAY:GOTO 388 


32860 GRAPHICS 8:? “NSTRING NAHE (RET. 
TO ERASE!":DIN QZ$(28}:INPUT QZS:IF 0 
ZS="" THEN POKE 842,13:GOTO 32819 

32881 ? "NLN .U, INC.":INPUT LN,IN:? "64 
44L=LEN(";QZS;"S} :BIH THE$(L) :THES=";Q 
ZS;"S:C0NT":POSITION 8,8:P0KE 842,13:5 
TOP 

32882 Z=8:DIN CLEARS(L}:CLEARS=THES:FO 
R N=1 TO L:IF THE$(N,N}=CHR$(34} OR TH 
ES(N,N)=CHR$(155} THEN THE$(N,N}="A" 
32083 NEXT N:N=l:L=L+80 

32804 L=L-88:IF L<88 THEN Z=Z+L:60T0 3 
2886 

32885 Z=Z+88 

32806 ? "*4":? LN;" ";QZS;"S(";N;”}=»; 
CKR$(34}; :P0KE 766,1:? TH£S(N,Z}«.? "CO 
NT":POSITION 0,8:5TOP 

32807 N=N+88:P0KE 766,8:LN=LN+IN:IF L> 
79 THEN 32884 

32088 Z=1:F0R N=1 TO L:IF CL£AR$(N,N}= 
CHRS(34} OR CLEARS(N,N}=CHRS(155} THEN 
GOTO 32810 

32889 NEXT N:G0T0 32617 

32810 IF Z>1 THEN 32813 

32811 ? "X44":? LN;" »;azSj»S(»;N;","; 
N;"} =CHRS (»,- A5C (CLEARS (N, H)};»} »; 

32812 Z=Z+1:G0T0 32889 

32813 Z=Z+i:IF Z>5 THEN 32815 

32814 ? ":";azS;"S(";N;",";N;»}=CHRS(" 

,- A5C (CLEARS (N, N} } j»} : GOTO 32889 

32815 Z=i:? :? "CONT":POSITION 8,0:5TO 
P 

32016 LN=LN+IN:G0T0 32011 

32817 ? :? "CONT":POSITION 0,0:STOP 

32818 POKE 842,12:GRAPHICS 8:END 

32819 SAVE "Di.TNP":? "*544":? "32008": 
? "32881":? "CONT":POSITION 0,8:STOP 
32828 ? "K44":FQR N=32802 TO 32821:? N 
:NEXT N:? "POKE 842,12:GR.8:END"; 

32821 POSITION 6,0:STOP 


ELEVEN 



DISK LISTING PROGRAM 

BY DICK KUSHNER 


10 REM KXXXKKXXXKKKXXKXXKXK K MXXXXKKKX 
29 REM * RISK LISTING PROGRAM by * 
38 REM *RIGK KUSHNER & GORBAN RANKS* 
78 REM XXXXXKXXX X K X XXKXXKXKKKKXXXXXXK 
89 REM * JACG NEWSLETTER - Bec,1984 * 
98 REM * $28/Year * 

91 REM *Contact:Ron Kordos * 

92 REM * 281 Lake Valley Rd * 

93 REM * Morristown, NJ 87968* 

95 REM XXXXXXXXEXXXXXXXXXXXXXXXXXXXXX 

188 RIM 8$ (171,N$ (481,F$(9881,5${16),F 
8 $ (128883 : X=1: 0=X-X: P=7: FB$="": POKE 82 
,2:G0SUB 478 

118 GOSUB 358:? tc l. Load Printer with 
labels or paper." 

128 ? "42. Turn on printer and interfa 
ce." 

138 ? “43. Insert diskette into Brive 

l.“ 

148 POKE 752,X:? “44Press RETURN when 
ready";:INPUT N$:? 

158 TRAP 159:GOSUB 359:? “PRINT HOW MA 
NY COLUMNS?":? »445eiect 2 to 3 for 3. 
5 in. labels." 

168 ? "45elect 2 to 4 for 5 in. labels 
,":? "4SeIect 1 to 6 colunns for paper 

ii 

178 ? "44N0M MANY COLUMNS (1 to 63";:I 
NPUT COL:If COL<X OR C0L>6 THEN 158 

189 GOSUB 358:? " Ro you want the fi 
les printed":? " 4alphabetically CY/ 
N3";:INPUT N$:IF N$="» THEN 188 

198 IF N$(X,X1="Y" THEN SORT=X:GQTO 21 
8 

288 IF N$(X,X1 <>"N" THEN 188 

218 TRAP 318:OPEN #P,8,8,"P:":? #P;"%e 

t3-**S8" 

228 CLOSE 112:GOSUB 358:? "Enter *ENB' 
to quit."’.IF LEN(FB$1 THEN ? "4Enter 1 
SORT FILE* to print all files.4" 

238 ? "4Enter a disknane for next disk 
label.4"’.INPUT N$:IF N$="ENB" THEN GR 
APHICS 0:ENR 

248 IF N$=»SORT FILE" THEN POKE 285,12 
:POKE 284,12:GB=USR(1568,ARR(FB$1,LEN( 
FB$3/123:GOTO 368 
258 OPEN B2,6,8,"B:*.*":F$="» 

268 INPUT 82,B$:IF L£N(B$3<17 THEN GOT 
0 338 

278 F$(LEN(F$l 4X3 =B$(3,183:F$(LEN(F$3 4 
Xl=» ":F$(LEN(F$3 +X3 =B$(113:FB$(LEN(FB 
$3 +13 =F$(LEN(F$l~15,LEN(F$3-43 :60T0 26 
8 

288 GOSUB 358:POKE 752,X:? "iPrinting. 


..N$:L=X:CP=0:FOR I=X TO LEN(F$3 5TE 
P 16 

298 ? HP;F$(I,1+153;" ";:CP=CP+X:IF 

CP=COL THEN ? #P:CP=0:L=L+X:IF C0L>1 
THEN IF L=18 THEN L=0:? HP:? ftP 
388 NEXT I:F0R I=L TO 11:? IIP:NEXT 1:6 
0T0 228 


318 TRAP 48898:IF PEEK(1953=138 THEN 1 


18 

328 ? :? "ERROR ";PEEK(1953;» AT LINE 
";PEEK(1863+256*PEEK(1873:5T0P 
338 IF SORT THEN POKE 285,16:POKE 284, 
16:GB=USR(1568,ARR(F$3,LEN(F$3/163 
348 FOR I=X TO (18*COL-(21+LEN(N$333/2 
:? #7;" »;:NEXT I:? #P;N$;" HAS »;B$:G 


OTO 288 

358 GRAPHICS 0:? "► 


DISK LISTING PR 


!iH:f;1I»4 44»;F0R 1=8 TO 15 STEP 8.5:S0UN 


R 8,28,18,15-1:NEXT I:RETURN 


368 GOSUB 358:? "Ready to print total 
directory.":? "4Insure that printer is 
loaded With 4PAPER, NOT LABELS" 

378 ? "4Enter •i* for tiny print.":? " 
4 *2* for snail print.":? "4 

*3* for nornal print." 

388 ? "4 *4* for LARGE print." 

398 ? "44Enter choice when ready";:INP 
UT N$:IF N$="i» THEN ? BP;"*3-i*58":? 
HP:GOTO 448 


489 IF N$="2" THEN ? HP; "*8, UH ": ? HP: 
GOTO 449 


418 IF N$="3" THEN ? ttP;"*8*lH":? »P:G 
OTO 448 

428 IF N$="4» THEN ? JIP;"^8%MK1H":? U 
P:GOTO 448 
439 GOTO 368 

448 L=X:F0R I=X TO LEN(FB$3 STEP 12:? 
NP;L;". ";:IF L<18 THEN ? HP;" "; 

445 ? IIP;FB$(1,1+113 :L=L+X:NEXT I:GOSU 
B 359 


458 ? "Enter '1» for another copy":? " 
4RETURN to End progran"; ’.INPUT N$:IF N 
$="1” THEN 368 
469 GRAPHICS 0:ENR 

479 IF PEEK (15683 0194 THEN GOSUB 358: 
? "One nonent please.FOR 1=1568 T 
0 1693: REAR A: POKE I, A’.NEXT I 
488 POKE 283,0:POKE 296,0:RETURN 
498 RATA 184,184,133,217,184,133,216,1 
84,133,289,184,133,298,169,9,133,218,1 
33,287,162,1,165,216,133,214,165,217 
519 RATA 133,215,24,165,214,133,212,18 
1,285,133,214,165,215,133,213,185,9,13 
3,215,164,283,165,286,248,18,177,214 


528 RATA 289,212,144,44,248,12,176,19, 
177,214,289,212,144,13,248,2,176,38,28 
8,196,284,248,227,176,23,144,223,169 
539 RATA 1,133,218,164,285,136,177,214 
,72,177,212,145,214,184,145,212,192,8, 
288,241,232,224,8,288,2,238,287,228 
548 RATA 288,288,172,165,289,197,287,2 
98,166,165,218,281,8,288,144,96 

SURF 

SOUND 

18 REM ***REAL SURF SOUNR*** 

28 REM ****BY LEE MINARB**** 

38 REM **5TARFLEET, RERVER** 

48 GRAPHICS 2:SETCQL0R 4,8,6:SETCOL0R 

2 , 8,8 

58 ? #6:? B6:? #6:? 86;" SURF'S UP 
!" 

68 POKE 789,8:POKE 752,1 

78 ? " Real Surf Sound" 

88 ? " by Lee Minard" 

188 X=9 

288 FOR J=58 TO 11 STEP -1 

239 SOUNR 3,225,4,X:SOUNR 2,8,8,X 

234 K=X-8.5 

235 IF X=8 THEN X=1 

236 IF J=49 THEN X=7 

237 IF J=19 THEN X=7 

238 IF J=35 THEN X=5 

239 IF J=1 THEN X=ll 

249 SOUNR 9,J,8,4:SOUNR l,J+5,8,3 

259 FOR MAVE=1 TO 29+RNR(81*188:NEXT H 

AVE 

265 NEXT J 

388 FOR J=18 TO 9 STEP -8.5 
339 SOUNR 3,225,4,X:SOUNR 2,8,8,X 

334 X=X-8.5 

335 IF X=8 THEN X=1 

336 IF J=5 THEN X=6 

337 IF J=1 THEN X=9 

349 SOUNR 8,J,8,4:SOUNR l,J+5,8,3 

359 FOR MAVE=1 TO 29+RNR(81*158:NEXT H 

AVE 

365 NEXT J 

498 FOR RLAY=1 TO 398+RNR(81*389:NEXT 
RLAY 

589 GOTO 188 


TWELVE 



DOUBLE SYNFILE 


(reprint: JAGC, Feb. 1985) 

Want to operate on SynFile + records in double density? Joe Zar- 
nitz of JACG provides an undocumented way to do it! — JB, editor 

First you should make a copy of the file using the “copy” function 
of SynFile+ . This procedure “empties the trashcan” and on files 
where records have been deleted will shorten the number of bytes 
considerably. 

The next step is to change density using the “copy file” function of 
your favorite DOS with one drive set up for each density. [Some drives 
will handle this operation in a single-drive configuration]. Be sure to 
get all 4 files (suffixs MDX, *.TBL, \D01, and \CNF). The wildcard 
suffix will catch them all. 

Now boot up SynFile + and “OPEN” your file in its newest version. 

The density should adjust automatically. Select your file and then go 
to the “RECORDS” option, select “REINDEX” and reindex the file. 

You can reindex by the same criteria as before or by a new one, but 
you must go through this procedure if you want this to work. 

Now you can use your file in any way you wish, just as though you 
had made the original file in double density form. If you have any 
questions, call me at 201-539-4212. 

— Joe Zarnitz 

USERCOMP 

(Reprint: U.K. Atari User’s Club) 

UserComp is a simple (?) single-pass machine-language assembler 
which takes most of the hassle out of creating User subroutines. It is 
designed to create a string directly, eliminating messy data reads 
(though this facility is still available). Although no labels (user-defined 
names for certain line numbers) are allowed, it is very easy and effi¬ 
cient to use, and is designed to save many of the keystrokes demand¬ 
ed by other compilers. 

Loading 

If your program is not yet written, CLOAD the Compiler. The pro¬ 
gram loads to 9000, whereupon you can create the USRs required, 
eliminate the Compiler by its built-in utility, and continue to write the 
rest of your program. If your program is already partially written, then 
procede as above, and LIST the USRs to tape, then ENTER them into 
your main program. 

Using the Program 

On running the program, a “form” will be displayed. The first op¬ 
code “PLA” is also displayed, both as an example of the format in 
which to enter the codes, and because all USRs will need this sooner 
or later. (It can be eliminated if desired by use of the Directive RUB). 

We recommend you first jot down your program on paper, rather than 
compose it on the screen, as you must know in advance to which line 
numbers you are branching. 

The Operation Code Field 

The solid question mark invites the entering of an alphabet 
character to form a 3-letter op-code. Some keys are locked out, and no 
editing is possible. If a mistake is made, enter three letters anyway 
and let the program reject it as invalid, or use the Directive RUB on the 
next line to erase it. No space or return is required; the program takes- 
off after the third keystroke to decide whether an address is required. 

The Operand 

If the program decides the op-code mnemonic is a valid one requir¬ 
ing an address field, then the cursor will invite one. For the first 
keystroke, valid responses are: 

A for the Accumulator (shift/rotate group only) 

Hash or Equals to indicate the “Load Immediate” mode 
Dollar to prepare for Hexadecimal input 

Open Bracket for Indirect Page zero address modes 

Digits to commence a Page zero or Absolute address 
T to mean a location in Page zero called “Temp” for general usage. 
(The idea is to avoid having to remember which page zero locations 
are available to the user, saving keystrokes, and having a recognizable 
label on the screen — the compiler expands the label on-screen from 
“T” to “TEMP”). 

H, L to mean the locations in page zero where the "result” (if used) 
is passed back to Basic. H and L refer to the high and low bytes of 
this result, interpreted by Basic as a real positive integer from zero to 
65536. If not used, Basic will assign a “result” to the USR call based 
on whatever number was last computed, for example the address of 
the USR string. 

D to mean a pair of locations in page zero to be used as a destina¬ 
tion pointer for (indirect) Y operations. 

S to mean another pair used as a “source pointer”. (Copying 
character sets or moving data requires 2 pointers). To access the high 
byte of tese pairs, use the PLUS symbol after the label. 

I to mean “indirect via” one of these pointers. Which pointer is used 
depends on whether a Load or Store instruction is being called. 

M to mean the location MEMTOP (106) which Basic is forbidden 
from encroaching beyond. 

Second and subsequent valid keys are: 

Digits and letters (A to F), Indexes (X,Y), Comma and Bracket. 

A Plus sign may be used to add 1 to any address — used to access 
the high location of pairs “D” and “S”. 

THIRTEEN 


USERCOMP INSTRUCTION SET 

OP. Operation Modes 

ADC Add with Carry 8 

ADD MACRO (CLC, ADC) 8 

AND Logical AND to A 8 

ASL Arithmetic Shift Left 5 

BCC Branch on Carry Clear 1 

BCS Branch on Carry Set 1 

BEQ Branch on Equal (Z flag set) 1 

BIT Test Memory bits (flags N,V,Z) 2 

BMI Branch if Minus (N flag set) 1 

BNE Branch if Not Equal (Z reset) 1 

BRK Break Assembly (NOT 6502 BRK) 

BPL Branch if Plus (N reset) 1 

BVC Branch if overflow clear 1 

BVS Branch if overflow (bit 6 to 7) 1 

BYT I npute Byte or Word (Note 5) 2 

CIO Macro (JSR Central I/O) 

CLC Clear Carry flag 
CLD Clear Decimal arith. flag 
CLV Clear overflow flag 

CMP Compare to A 8 

CPX Compare to X 3 

CPY Compare to Y 3 

DCP Decrement&compare to A (Note2) 4 

DEC Decrement memory 3 

DEX Decrement index X 
DEY Decrement index Y 
END Compile & Print USR 

EOR Exclusive OR to A 8 

INC Increment memory 3 

I NX Increment X 
I NY Increment Y 

LAX Load A &X (Note 2) 3 

LDA Load Accumulator 8 

LDX Load Index X 3 

LDY Load Index Y 4 

LSR Logical Shift Right 5 

NEW (See Note 3) 

NOP No Operation 

ORA Logical OR to A 8 

PHA Push A onto stack 

PHP Push Processor status 

PLA Pull A from stack 

PLP Pull status flags 

PUL Macro (PLA, STA) 7 

PUT Macro (LDA, STA) (Note 4) X 

RES Macro (NOP,NOP,NOP,NOP) 

ROL Rotate left through carry 5 

ROR Rotate right through carry 5 

RTS Return from USR to Basic 
RUB Delete last line entered 

SBC Subtract with Carry 8 

SEC Set Carry flag 
SED Set Decimal mode 

STA Store Accumulator to Memory 7 

STX Store Index X to Memory 4 

STY Store Index Y 4 

SUB Macro (SEC,SBC) 8 


TAX Transfer A to X 

TAY Transfer A to Y 

TSX T ransf er Stack poi nter to X 

TXA Transfer X to A 

TXS T ransf er X to Stack Pointer 

TYA Transfer Y to A 

Note 1. Macros here simply mean pre-defined instructions. 

Note 2. See “Extra Instructions”, COMPUTE!, October, 1983. 

Note 3. Same as RESET, GOTO 9000. Do NOT use after Reset as 
Basic will wipe out the program! 

Note 4. Use as the equivalent of POKE, except the data comes 
before the address, with LDA (immediate), STA page zero or absolute. 
The equivalent of a MOVE when used as LDA (location), STA 
(location). The only restriction on the number of addressing modes 
comes with fitting it onto the screen. 

Note 5. Use as data and to support those op-codes not mentioned 
here. For example, JSR can be input as BYT 32, BYT (address word). 
When the number of addressing modes is specified (in the MODES 
column) as anything other than “-” then an address field is expected 
of you. For Branches, only the Line Number is acceptable. A Hash 
sign, or an Equals sign, are both acceptable as an “immediate” com¬ 
mand. 

A Dollar sign sets the input to Hex mode (default decimal). 

The address field is terminated by a Space, a Return, or sometimes 
by the indexing symbols X, Y, or). 



Atari File Developer 

This past summer I worked on an Apple computer using a program 
called Appleworks. (This is probably the best microcomputer program 
I have ever seen). In using Appleworks, I encountered many scrolling 
disk directories from which one could pick his choice (or choices) and 
then have the program operate on them. I then took it upon myself to 
write a similar thing for Atari using my then newly acquired Action! 
cartridge. After many hours of blood, sweat and tears I came up with 
the scrolling directory routines and a program which I affectionately 
call ‘FID’ (after an Apple program which does many of the same func¬ 
tions). 

This program will allow you to do mass file locks, unlocks, deletes, 
and copies, in addition to basic disk formatting. Mass file copying is 
done by first telling the program what files you want copied. Then the 
program reads them all in from the source disk into a memory buffer, 
and writes them back out to the destination disk, with only a single 
disk swap. Unfortunately for you multi-drive system owners, FID was 
written for only a single drive system, i.e. it will only operate on the 
disk in drive 1. Actually, if you have two drives, the main function of 
FID (mass file copies with few disk swaps) is no big deal anyway 

While all the functions of FID are available from your DUP menu, 
FID lets you do these in an efficient, user-friendly manner. The only 
keys used are the up and down arrows, numbers 1 through 5, 
RETURN, and the START button. I have given this program to a 
neighbour boy with an Atari who couldn’t figure out the DUP menu 
and now he uses FID all the time. 

USING THE PROGRAM: 

When you load the FID program, you will be faced with a menu of 5 
items. Before you choose the function you want executed, you will 
have to place the disk you want operated on in drive one. Then push 
the number, and the program will read in the directory and show you a 
portion of it. To select files to be operated on, press the RETURN key. 
This will cause the file pointed to by the pointer to be displayed in in¬ 
verse video, indicating its selection. To move the pointer up and down, 
simply press the + and * keys (without holding down control). To 
move the pointer quickly, hold down control and press these keys. To 
deselect any files you may have selected by accident, simply position 
the pointer across from them and press RETURN again. When you are 
finished making selections, press the START button, and the files will 
be operated on. 

If you just wish to see the directory on a disk, choose one of the op¬ 
tions Lock, Delete, or Unlock, and then don’t press RETURN. When 
you are done viewing the menu, press START. 

To use the format option, press the 5 button. The program will at¬ 
tempt to check if the disk is already formatted, if it is you will be ask¬ 
ed to confirm your choice. If it isn’t, then it will be automatically for¬ 
matted. NOTE: It sometimes takes quite a while to decide the disk is 
not formatted. If this delay is unacceptable, you might want to modify 
the procedure CheckformatO so it only says Format(“D1:”). This will 
mean removing the rest of the body of this procedure 
COPYING FILES: 

FID was originally written for this and only this purpose. I had got¬ 
ten angry at DOS for making me switch disks so much when I was co¬ 
pying a bunch of small files. What FID will try to do is read as many of 
the selected files into memory as it can, then dump these all out onto 
the destination disk. Generally speaking, it works well, but for very 
large files the DUP copy should be used — FID gets confused if it 
can’t read a very large file into its memory buffer at a single pass. 
Also, avoid copying DOS files with it — better use DUP to write DOs! 

I have used FID in conjunction with RANA SmartDOS to transfer a 
number of single density music files to double density. With only a 
single drive, density conversion can be a very long, boring sequence 
of disk swaps. With FID and SmartDOS, the disk swaps are cut down 
drastically (if small files are being copied). To use FID in this capacity, 
simply boot your system with RANA SmartDOS and then either Load 
FID or Run it from the ACTION monitor. 

COMPILING: 

When you compile this program, some special precautions must be 
taken. First of all, you should type the program into your editor and 
compile it while it is still in memory until all the syntax errors are 
removed. Then save the text file to disk from the ACTION! editor. 
Clear the editor, and enter the monitor. Type C “FID” (or whatever 
name you used) and wait while it compiles. Now type ?$E from the 
monitor. Make a note of the last number printed out by the monitor, 
and make sure “codetop” is at least 100 greater than this value. If it is,’ 
then type w “FID.COM” to write out a executable file. If codetop isn’t 
large enough, go to the editor, load the file in, change it, saved the file, 
and recompile. Note that this COM file will need the ACTION! car¬ 
tridge to be present to run. If you have the Runtime package, you may 
want to compile and save a runtime version of FID so you will be able 
to run it without the cartridge in. In this way, you gain 8K of buffer 
space. 


THE PROGRAM: 

I am embarrassed to say that this program is not a very good exam¬ 
ple of an ACTION program. I wrote it during the summer of 1984 
(almost a year ago!!!) before I had taken any university and by my 
prof’s standards this program is a mess. However, for those who want 
to spend some time, the procedures from Read Directory down to Ex¬ 
ecute could be copied into another program, and with the right global 
variable declarations, the scrolling directory should be able to be used 
with a minimum of effort. The execute procedure would have to be 
called from the program, and would get the filenames selected and 
presumably either operate on them or return them to the main pro¬ 
gram. Let me know if you get these going in your own programs, or if 
any suggestions for features in FID that you would like to see added. 
My address is: 

Dale Lutz 
3504-104 St. 

Edmonton, AB T6J 2J7, Canada 


THE CELL 

THE CELL is an educational program using graphics to give the 
user a colorful tour of a typical animal cell. It may be used by anyone 
who wishes to learn a bit about cells (and it is a great review for a 
biology test!). I spent quite a bit of time to write and debug it, and it 
can be very educational. 

The program displays a large color image of a single cell, and a 
blinking cursor. The cursor may be moved, using the joystick, to any 
of eight different parts of the cell. When you wish to view a part of the 
cell in greater detail, press the trigger and a magnified image will ap¬ 
pear, along with some textual information. When you feel you have ab¬ 
sorbed everything, press START and a multiple-choice quiz will com¬ 
mence. 

THE CELL was originally written for a science-fair project a year 
ago. When I originally wrote THE CELL, I did not understand such 
“complex” things as Player/Missiles or Page Flipping, so the techni¬ 
ques used in the program are simple. Each part of the cell is drawn in 
graphics mode 7, by routines using normal PLOT and DRAWTO com¬ 
mands. The multiple choice quiz uses questions and answers stored 
in DATA statments beginning at line 12000, and more questions could 
be added. The major routines of THE CELL are identified with REM 
statements, so it should be easy to modify the program if you wish. 

THE CELL requires at least 32K to operate. It might take quite a bit 
of typing to enter the whole program, but it should be worth it! 

—Paul Freeman 


ATARI ANIMATE 

ANIMATION - USING CHARACTER GRAPHICS 

Using any one of the available drawing programs such as 
DataSoft’s Micro-Painter, it is possible to design very detailed and col¬ 
orful screens. These programs use ANTIC mode 14 (sometimes 
known as GRAPHICS 7.5), which provides 4 colors with a resolution of 
320x192 pixels. The only disadvantage is the mode uses almost 8K of 
screen memory. If you wish to use your ANTIC 14 designs in your own 
programs, this memory limitation can cause problems. 

To solve this problem, Jerry White has created an excellent 
graphics package called Atari Animate. The program allows you to 
load in a screen created with Micro-Painter (or other programs), and 
convert the screen into a font for use with ANTIC mode 4. ANTIC 4 is 
a multi-color character mode which has the same resolution and 
number of colors as ANTIC 14, but ANTIC 4 uses less than IK of 
memory - a big savings! Atari Animate consists of a disk filled with 
many programs all designed to work together. The main programs of 
the package are: 

S2FONT - The main utility program which converts graphics 
screens into character fonts. 

ANIMATE - A demonstration program which displays a walking 
robot. Once you have seen this demonstration, you will realize the ad¬ 
vantages of using character graphics. 

DISPDISK - A utility which displays on the screen a font created by 
S2FONT. 

FONT2STR, SMP2STR, DISPSTR, SCR2STR - A series of utilities 
which convert character fonts and displays into BASIC strings. 

STR2SMEM.SRC - An Assembler source code for a string display 
routine used by the ANIMATE program. 

The documentation to the programs is very complete (17 pages), 
and it serves as a tutorial on how to use character graphics for anima¬ 
tion purposes. The author, Jerry White, shows you every step of the 
process needed to convert your graphics screens into a functioning 
part of your program. Atari Animate is an excellent addition to 
anyone’s library of Atari software, and I plan to use it extensively, it is 
available for $12.00 (very reasonable!) from: Jerry White, 18 Hickory 
Lane, Levittown, NY 11756. 

— Paul Freeman 


FOURTEEN 



PQ ERACE 


PQ ($45, Suncomm, 1985 Design: Tom Quinn Jr., Programming: Joe 
Hellesen), or Party Quiz, is a basic computer trivia game. PQ allows up 
to four players to play in a fast pace question and answer session. The 
package also includes hardware: 4 game controllers and adaptor so 4 
may play even with only 2 joystick ports. 

Player response times may be selected, by the use of the option 
key, and may be of 3, 5 or 10 seconds in duration. A pause function 
must be used for unlimited response time. Each game consists of a 
series of rounds, with one round consisting of 10 questions. The 
preset option is for 5 rounds, but this may be altered to 8,12,16, or 20, 
making the games of from 50 to 200 questions in length. 

The game may be played in one of two modes, competitive or 
social. In competitive mode all players or teams are competing at 
once to answer the displayed question. The first correct answer being 
the winner for the available points displayed. Social mode allows all 
the players to answer even after a correct answer has be given, of 
course more points are scored by the first correct answer. 

Points are awarded by the use of a displayed time clock. The clock 
is set at 1000 points for multiple choice and 500 points for true/false. 
As the game proceeds the clock ticks off the points, the time of the 
correct answer determining its value. In PQ there is even a way for the 
various players to be handicapped. The handicapped player is given 
only half the time to answer a question. His controller is deactivated 
for the first half of the turn, not only allowing him half the time but 
reducing his point count by half. 

Each controller is a simple hand held unit with four response but¬ 
tons. The sets are attractive and well made. One caution is that the 
controller package must be in place prior to loading the game, if not 
some of the controllers may be inoperative. On the whole Suncom has 
put together a nice little package. A little carelessness is evident in 
the questions. For example one question asks 7x8 = 54 true or false. It 
credits false as the correct answer but it tells you the answer is 58! 
Another gives “Ka”as the abbreviation for Kansas. Perhaps for a true 
trivia buff the lack of distinct catagories might be disappointing, but 
as a general trivia game this one is good. 

The program provides custom designed graphics screens, and 
there is some sound. The scores of top players are recorded and titles 
are given for attaining performance levels. 

Suncomm has additional question disks for $25.1 want to see them 
issue a disk allowing you to set up your own series of questions. 
Without these additions, it is obvious at some point the available 
questions wit) have all been memorized. 

— Nick Chrones 



The ERACE Education disk #8 is now ready. These 6 programs 
cover a wide range of subjects. The first 5 programs are from John R. 
Kelley. 

DOMINOS, DOMINOS2 and DOMINOS3 are separate, but chained 
arithmetic programs based on the spots of the double six, the double 
nine, and the double twelve dominos. 

FLASH SPELL provides practice in recognizing and spelling over 
300 common words. 

FLASH READ helps to increase reading speed. A hundred short 
phrases are available. 

CELL 12 is a science program from Paul Freeman teaching the 
basics of the cell. Very good graphics. Joystick and 32k are required. 

This disk or any ERACE disk can be ordered from Ron Ness, ACE 
Librarian (374 Blackfoot, Eugene, OR 97404), for $10. Double sided 
disks (with another library disk) are $15. 

Our next disk is half full. We need more education programs which 
are projects for your children, students, friends, and/or grandchildren. 
We can also use public domain programs. Send the program on disk 
or tape with documentation including your name and address. 

We are still soliciting software for review. Even though we want to 
see as much commercial work as possible, we are just as interested 
in seeing your pet project in sharing ideas and knowledge. 

If you are interested in joining ERACE, either call or drop a note into 
the mail. We will have meetings in Eugene with enough interested 
members. 

— Nora Young 
ERACE SIG 

GETTING READY TO READ AND ADD 

($40, Sunburst Communications. Recommended for ages 4-7) 

This package includes six programs designed to give children prac¬ 
tice in discriminating shapes (BEAM UP), upper and lower case letters 
(ALPHASAURUS, ABC= =, & LETTER GETTER), numerals (MOON 
MATH & NUMBER CHICK), and eye-hand coordination. 

Correct responses cause novel and interesting things to happen on 
the screen with lively animation, colorful graphics, and sound. Incor¬ 
rect responses are ignored. 

These games can be changed by the user to control things like how 
fast, how many, and in what order information is presented. The user 
manual is very good. Each game has its own page along with a large 
picture, description, skills, change option, and objectives. There are 
suggestions for parents and teachers on how to present the program. 

The disk is next to impossible to crash since one must press Con¬ 
trol and the E key together to end the game. 

We find the games to be a charming approach to teaching simple 
concepts. The graphics and sound, along with the change option 
make the games more interesting for the child. Katie, our first grader, 
enjoys the games and the rewards she gets for a good job. Joe, our 
3rd grader, enjoys the graphics and effects. 

— Nora Young 


RGB FOR THE 800 

(reprint: Bay Area Atari Users Group, March 1985) 
SUBJECT: ATARI RGB OUTPUT 

Atari 800 owners can now have an RGB output for $20 or less by 
connecting to the A103 chip on the PC board under the metal plate on 
the bottom of the Atari 800. 

For those with RGB adjustments on their monitor the installation is 
simple. The soldering of the five wires to the appropriate pins of the 
A103 chip and the soldering of the five leads to a chassis mounted 
5-pin female RCA plug finishes the job (Fig. 1). 

For all other owners of just the simple RGB video input with no 
separate RGB controls you just follow the schematic (Fig. 2) and make 
the same soldering connections as in the first example. 

We find it is easier to use a 14 or 16 pin DIP socket to solder all four 
transistors on with the 68 ohm the 500 ohm (sic) potentiometers. This 
way you can do a clean installation by drilling three small holes in the 
side of the chassis for mounting the three potentiometers with a good 
two part epoxy so you can have easy adjustments of your RGB output 
with a small screwdriver.Then at the same time you can epoxy the 14 
or 16 pin DIP socket to the Inside of the 800 cabinet. 

The total assembly and mounting time is under one hour. 

PARTS LIST 

4 2N2222 transistors 

4 68 ohm resistors 

3 500 ohm potentiometers 

1 14 or 16 pin DIP socket 

1 RCA 5 pin chassis mount female plug for appropriate RGB con¬ 
nection 

Plus some wire. 


FIFTEFN 



Atari Computer Enthusiasts 

A.C.E. is an independent, non-profit and tax exempt computer club 
and user’s group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Air¬ 
mail and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep’t: 3662 Vine Maple Dr., Eugene, OR 97405. 

‘‘President— Robert Browning, 90 W. Myoak Dr., Eugene, OR 97404 
503-689-1513 

Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 
503-686-1490 

Secretary— Bruce Ebling, 1501 River Loop #1, Eugene, OR 97404 
503-688-6872 

Librarian— Ron and Aaron Ness, 374 Blackfoot, Eugene, OR 97404 
503-689-7106. 

Editors— 

Mike Dunn, 3662 Vine Maple Dr, Eugene, OR 97405 503-344-6193 
— Jim Bumpas, 4405 Dillard Rd, Eugene, OR 97405 503-484-9925 
E.R.A.C.E. (Education SIG Editor)— Nora Young, 105 Hansen Lane, 
Eugene, OR 97404 503-688-1458 


Send 50c stamps or coin ($1 overseas) to the Ness’ for the new, 
updated ACE Library List-new in May 84 ! 


TYPESETTING 

FROM YOUR COMPUTER 

ATARI OWNERS: If you-have a modem, text editor, and com¬ 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes ‘‘on line:’ 
And it’s easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 



30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


Best of ACE books 


Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 


Volume 2 covers July 1982 to June 1983 

Only $12 each ($2 extra for Airmail). Available only from: 

George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 

SortFinder 1.2 

A composite index of Atari related articles from 5 popular computer 
periodicals from Apr ’81 to June ’83, including ACE. Only $6 for ACE 
member from: 

Jim Carr, Valley Soft 
2660 S.W. DeArmond 
Corvallis, OR 97333 
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Bulletin Board 
(503) 343-4352 

On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided diskAdfiVes with ar\ATR 8000 interface, 2- 8” double ' 
density disk drivdsfoan^ Epson M/$0 printer, a^Hayes SmartModpm- 
running the ARMljJJDfC Bulletin Board software wfffien'by Frank"!. Ha- 
band, 1206 N. Stafford St, Arlington, VA 22201. See tKeNov ’821ssue 
for complete detarte. ' 



MAIL 




